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O NSZ 


CPC 464 bilyisayarı. en çok satılan ev bilgi- 
sayarı olma yolundadır. 


Ancak. tecrübeli kullanıcıya da vardımcı ola- 
bilecek. anlaşılır ve kapsamlı bir kullanım kitabı- 
nın eksikliği hissedilmektedir. 


Bu kitap. bilgisay> :nızı daha iyi anlamanıza 
ve ondan daha çok yararlanmanıza yardımcı ola- 
caktır. 


Her CPC 464 bilgisayarı sahibinin pek çok 
yeni ve önemli bilgiler bulacağı bu kitap, CPC 464 
kullanım broşüründen çok ileri kapsamlıdır. 


Kullanım broşürünü tamamen incelemiş olan- 
ların kafasında dahi birçok soru cevapsız kalmış o- 
lacaktır. Bilgisayarları için ek bilgi, yeni fikir ve 
program arayışı içinde olanların bu arzularını kar- 
şılamak üzere. bu kitap üç büyük bölüme aynıl- 
mıştır. 


Birinci bölümde CPC 464'ün donanımı ince- 
lenınektedir. Bilgisayarın çalışma tarzına daha ay- 
rınulı bir bakış. sizi cihazınızla daha yakınlaştıra- 
caktır. Bütün bağlantı noktalarının anlamları açık- 
lanmakta ve çevre birimlerinin uzatma bağlantıla- 
rn anlatılmaktadır. 


Kitabın ikinci bölümü ayrıntılı olarak CPC 
464'ün bellenimine ayrılmıştır. Burada BASIC'le 
programlamanın ve çalışma sisteminin incelikleri- 
ne değinilmiştir. Ayrıca CPC 464'ün diğer ev 
bilgisayarlarında olmayan bazı özelliklerinin nasıl 
değerlendirilebileceğine dair örnekler verilmiştir 
(Grafik, ses, kesilme ve pencereleme). 


Kitabın üçüncü bölümü CPC 464 yazılımını 
sunmaktadır. Bir bilgisayarın değeri ancak yazılım 
zenginliğiyle ölçülebileceğinden, birçok faydalı ve 
gelişmiş programlar tanıtılmaktadır. 


Kitap, hareketli grafik ve sesli oyunların 
programlanmasına dair ilginç bir kesimle son bu!- 
maktadır. 


Verilen programlar tümüyle denenmiş olup, 
bilgisayarın orijinal çıkışlarıdır. Bu nedenle hepsi 
CPC 464'le kusursuz çalışacaklardır. 


Darmstadı Martin Aschoff 


GİRİŞ 


CPC 464'le bilgisayar pazarı, kendisinden 
beklenileni veren bir ev bilgisayarına kavuşmuştur. 
Bu bilgisayar satın alındığı andan itibaren kullanı- 
ma hazırdır, çünkü teybi ve denetleyicisi satış fi— 
yatının içindedir. Buna rağmen emsallerinden daha 
pahalı değildir. 


CPC 464 herkes için uygun bir bilgisayardır. 
Oyunları sevenler için renkli denetleyici olduğu gi- 
bi, iş adamları için de 80 işaretlik satırlarıyla tek 
renkli denetleyicisi, yazdırıcısı ve CP/M çalışma 
sistemli disket kutusu vardır. 


Geniş bir satış ve servis ağının yanısıra, fi— 
yatına göre yüksek hizmet kapasitesi ve imalatın- 
daki kaliteli işçiliği de CPC 464'ün sevilmesini 
sağlamıştır. Ancak CPC 464'ün hızla yayılmasının 
asıl nedeni, onu rakiplerinden ayıran birçok dikkat 
çekici özelliğinin olmasıdır. Bunların başlıcaları 
şunlardır: 


D 128 000 resim noktasıyla yüksek çözümle- 
yici grafik 

O 27 rengi verme imkânı 

o 8'e kadar ekran penceresine imkân veren 
pencere teknolojisi 

a Birbirinden bağımsız üç kanallı ses üreteci, 
5-ses-bekleme sırası ve gürültü üreteci, 
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nm B.SIC dilinde çok iyi kesilme imkânları. 


İmalâtçı firmanın CPC 464'ün bu özellikleri- 
ne yeterince değinemediği anlaşılmaktadır. Bilgi- 
sayarla birlikte verilen kullanma talimatnamesi, 
280 sayfa uzunluğunda olmasına rağmen, sık sık 
tekrarlar ve bazı noktalarda da yanıltıcı bilgiler 
içermektedir. 


Kullanma broşürünün önsözünde, CPC 464'ün 
ayrıntılarına dair bilgilerin kitaplar dolusu olacağı- 
na işaret edilmektedir. Bu biraz abartılmış olabi- 
lir. Ancak imalâtçının gözden kaçırdığı noktaları 
belirtmek ve kullanıcıyı aletin bütün imkânlarıyla 
tanıştırmak gerekirse, rahatlıkla bir kitabı doldu- 
cak bilgi ortaya çıkmaktadır. 


İşte bu kitap şimdi elinizdedir! Bu kitabın 
dikkatli bir şekilde okunması, size CPC 464'ün 
kullanımında yeni ufuklar açacaktır. 


l 


CPC 464'ün DONANIMI 


Bir bilgisayarın donanımı, mekanik ve elek- 
tronik parçalarından oluşur. Deyim yerindeyse, do- 
kunabileceğiniz her şey donanıma aittir. 

Önce CPC 464'ün içerden nasıl göründüğünü 
anlatıp, sonra önemli parçalarına dair bilgi verece- 
ğiz. 


1.1. Bilgisayarın İçi 


Siz herhalde elektronik hastası değilsinizdir ve 
bilgisayarınızı parçalarına ayırmamışsınızdır. Bu ne- 
denle bu bölümde CPC 464'ün içinin nasıl olduğunu 
ve orada ne olup bittiğini anlatacağız. Cihazın açıl- 
ması nispeten problemsizdir. (Ancak cihazı açtığınız 
takdirde garanti haklarınızı kaybedip kaybetmedi- 
nize dikkat ediniz!). Bilgisayarın altındaki altı vida- 
yı sökmek ve üst tarafını kaldırmak yeter. Fakat 
üst taraf, klavye ile hesaplama kiti arasındaki bağ- 
lantıyı sağlayan 20'lik bir yassı kablo ile hala bil- 
gisayara bağlıdır. Üst tarafı tamamen kaldırmak 
için bu kabloyu kitden sökmeniz gerekir. Ancak 
kırmamak için sökerken zorlamayınız. Bilgisayarın 
üst kısmını kenara koyduğunuzda, artık CPC 464'ün 
kiti karşınızdadır. Onu muhafazanın alt tarafına 
bağlayan dokuz vidayı sökmenize gerek yoktur. 
2 cm. kenarlı ve hemen dikkati çeken siyah 
bir küp, klavye yayı olarak hizmet görmektedir. 
Kit üzerinde birçok direnç, birkaç kondansatör ve 
bir miktar entegre devre görülmekte olup, entegre 
devrelerden biri soğutucu cisim altındadır. 


BENT (Er 
EE) sm 


ic 19) (629) 
116) (619) (629) fic21) (cz) 


Resim 1.1 Baskılı devre üzerine şematik bakış 





IC-No. Markası Görevi 

IC 1 Z-80A-CPU 4MHz3 darbe frekansı için mikro iş- 
lemci 

Ic 2 23256 32 KBayı-ROM 

IC 3-10 4164 64-Kx1-Bit-dinamik RAM 


IC 11 8255PIO Paralel giriş/çıkış elemanı 
IC 12 20RA043 Gate Array 
-Bellek yönetimi 
-RAM belleğin çalıştırılması 
-Video çıkış sinyali 
-Darbenin bölünmesi 
IC 13 6845CRTC Video sinyal jenaratörü (CRTC) 
IC 14 AY-3-8912 Ton jenaratörü 


IC 15 74LS273 Centronics-Kesim konumu 

IC 16 74LS145 Kod çözücü 

IC 17 7415244 8-Bit veri okuma ünitesi 

IC 18 74LS373 8-Bit veri yazma ünitesi 

IC 19-22 74LS153 Video bellek CRTC için veri 
selektörü 

IC-23 74LS132 Lojik Bağlantılar için VEDEĞİL ka- 
pısı 

IC 24 74LS32 Lojik Bağlantılar için VEYA kapısı 

IC 25 7400E Darbe yönlerinin üretimi için 


VEDEĞİL kapısı 
Ouarz HC-18/U 16 MHz darbe üretici kristal 


Tablo 1.1 CPC 464 'de IC'lerin anlamı 
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Çok dikkatli bakacak olursanız üç transistör 
bir diyot ve CPC 464'ün kuvarsını göreceksiniz. Bu 
devre elemanlarından bizi ilgilendirenler, sadece 
entegre devreler ve kuvarstır. Şekil l.l'de bu par- 
çaların dikkate alındığı bir kit şeması görülmekte- 
dir (C 12, 12 numaralı entegre devre, çok fazla 
ısındığı için soğutucu bir metal altında bulunmak- 
tadır). Entegre devrelerin ve kuvarsın anlamları 
Tablo 1.I'de açıklanmıştır. Kitin en sağında bulunan 
8 kafalı bir fiş teyple olan bağlantıyı sağlamakta- 
dır. Teybin elektroniği bizi fazla ilgilendirmemek-— 
tedir. Giriş ve çıkış sinyalleri için iki yükseltece 
ilaveten bir de mikrofon yükselteci mevcuttur. 


1.2 Mikro İşleyici 


Modern bilgisayarların kalbi artık tek bir ele- 
mandan oluşmaktadır. Buna . mikro işleyici veya 
CPU (merkezi işlem birimi) adı verilir. 


CPC 464'ün mikro işleyicisi, Zilog firmasının 
mikro bilgisayarlar için çok yaygın olarak kullanı- 
lan bir ana işlem birimi olan Z-80A-CPU'dur. (Bu- 
radaki A, en yüksek çalışma frekansı olan 4 MHz 
için imalatçı firmanın kod harfidir). Mikro işleyici 
CPC 464'ün beynidir. O, verileri işler, aktarır, lojik 
ve aritmetik emirleri yerine getirir ve çevre birim- 
leri üzerinden çevresiyle iletişim kurar. 


Komutlar 
Bir mikro işleyicinin anlayıp, yerine getirebi- 


leceği komutları sayısı, onun kapasitesi için ö- 
nemli bir göstergedir. 
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Z-80-CPU mikro işleyicisi (A harfini, bizim 
için önemli olmadığından artık yazmıyoruz) birbi- 
rinden farklı 158 komuta cevap verir. (İşlem 
Kodları). 


Yazmaç 


Bir mikro işleyicinin yazmaçlarının sayısı da 
önemlidir. Mikro işleyicinin ne kadar çok yazmacı 
varsa, o kadar çok veriyi depolayabileceğinden, 
sonradan veri yüklemesine o kadar az ihtiyaç duyu- 
lur. İşleyicinin çalışma şekli de daha berrak, ef- 
fektif ve hızlı olur. Z-80-CPU'nun 22 yazmacı var- 
dır ki, bu yüksek bir sayıdır. 


Veri Taşıma Kanalı 


Mikro işleyicinin çevresiyle bilgi alışverişinde 
bulunabilmesi için, veri taşınacak bir kanala 
ihtiyacı vardır. Buna veri taşıma kanalı denir. Bu 
kanalın genişliği, mikro işleyicinin kapasitesi için 
bir göstergedir. Çünkü 16 Bitlik ve kanalda belli bir 
zamanda 8 Birlik bir kanala göre iki misli daha 
çok veri taşınabilir. 


Ev bilgisayarlarının çoğunun mikro işleyicile- 
rinin veri kanalı 8 Bitliktir. Z-80-CPU da 8 Bitlik- 


tir. Daha büyük bilgisayarlarda 16 veya 32 Bitlik 
veri kanalları vardır. 


İç Bilgi-İşlem Kapasitesi 


Bir mikro işleyicinin veri kanalı kapasitesi 
kadar iç bilgi-işlem kapasitesi de önemlidir. 


Z-80-CPU 8 Biti paralel işleyebilir ve bu ne- 
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denle 8-Bit işleyicileri ailesine dahildir. Bundan 
başka, uygun komutlarla 8 Bitlik iki yazmacı 16 
Bitlik bir yazmaca dönüştürmek mümkündür. Bu 
nedenle Z-80-CPU 8-Bitlik gerçek bir işleyici ol- 
manın yanısıra, 16 Bitlik bir varsayılan işleyicidir. 
Çünkü tek bir komutla 16 Bit uzunluğunda veri ke- 
limeleri işlenebilir. Bu metodun faydası ortadadır: 


İşlem kodları her defasında sadece bir tane 
yazmacı hedef alırlar. 8 Bit yerine 16 Bitlik yaz- 
maçlar kullanılırlarsa, aynı bir zamanda iki misli 
fazla veri işlenebilir. 


Bazı mikro işleyiciler, iç kapasiteleri veri ka- 
nalı genişliğinden daha büyük olduğundan, dışarıya 
bir defada verebileceklerinden daha çok veriyi pa- 
ralel olarak işleyebilirler. 


Örneğin yazmaçları 32 Bitlik, veri kanalı 8 
Bitlik bir işleyicide dış dondnım tasarrufu sağlan- 
mış olur. Ancak bu şüphesiz işlem hızını yavaşlatır. 


Adres Kanalı 


Mikro işleyicinin bir veri taşıma kanalı yanın- 
da, çevresine mesaj gönderebilmek için bir de ad- 
res kanalına ihtiyacı vardır. Bu kanalın genişliği, 
aynı anda kaç tane çevre birimiyle görüşebileceği- 
ni belirler. Mikro işleyicilerin adres kanalı genişliği 
genellikle 16 Bittir ve böylece aynı anda 216- yani 
65536 çevre birimi idare edilebilir. Çevre birimleri 
tamamen bellek birimlerinden oluşuyorlarsa, mikro 
işleyici 65536 Byte, yani 64 Byte (Il KByte-l1024 
Byte) kullanabilir. Çok bilinen maksimal bellek ka- 
pasitesi olan 64 KByte böyle ortaya çıkar. 
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1/O-kapıları ile konuşulması genellikle oldukça 
komplikedir. Örneğin çok kullanılan 6502-CPU'da 
her kapı için bir bellek birimi rezerve edilir. An- 
cak Z-80-CPU'da durum böyle değildir. Burada tek 
bir komutla 256 kapıyla aynı zamanda görüşülebilir. 
Bu kapı adresi aşağı 8 adres biti üzerinden ekstra 
bir kapı sinyaliyle verilir. Böylece Z-80-CPU'da 
hem 64 KByte'lık tam bellek kapasitesi kullanıl- 
mış, hem de yeterince 1/O-kapılarına yer ayrılmış 
olur. 


Bu kapılar üzerinden uygun donanımla farklı 
bellek bloklarına geçilebilir ve neticede maksimal 
256-64 KByte'lık bir kapasite ortaya çıkar. 


CPC 464'ün Z-80-CPU'su da geçit-dizisi ile 
birlikte bu metodu kullanarak iç ve dış ROM ve 
RAM'ları ayırdedebilir. 


Yönetme Kanalı 


Mikro işleyicinin üçüncü kanalı olan yönetme 
kanalı, mikro işleyicinin durumunu gösterir. Bu ka- 
nalın sinyalleri belli bir anda okuma veya yazılma 
mı yapıldığını bellek veya 1/O-kapılarıyla mı görü- 
şüldüğünü veya çevreden bir kesilme talebi mi ol- 
duğunu vs. gösterirler. 
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—————————— 
Sinyal (o Kayıt/verme durumu Aktif durumdaki anlamı 
———————— << 


LO Kayıt/verme durumu Veri kanalının en düşük değerli Bit'i yerleştirilir. 

DI Kayw/verme durumu Veri kanalının düşük değerli Bit'i yerleştirilir. 

v2 “ " " " “ " " " " 

v3 " “" "” ” " "n LU " ” 

D4 “ " ” "". " “ “ ” " 

DS “" " " " “ " " " " 

D6 " " “ " " “ " " " 

D7 " “ N Veri kanalının en büyük değerli Bit'i yerleştirilir. 

AO Verme durumu Adres kanalının en düşük değerli Bit'i yerleştirilir. 

Al ” w Adres kanalının düşük değerli Bit'i yerleştirilir. 

A2 " " ” ” "” " " " 

A3 ” "” “” ” ” "” "” " 

A4 “" " “" " ” “" ” ” 

AS " " "” “" " " " “" 

A6 "” ” "” " " " " " 

A7 " n" " " ” " " " 

A8 n ” "un " ” "” ” " 

A9 " " " " " " " " 

Al10 " "” " " " " " 

All ” ” " " ” " " " 

A'2 " "” un “" ” " " " 

A13 " " " " " " " " 

Al14 ' , , , , ' z “e N " Aİ 

At5 m “ Adres kanalının en yüksek değerli Bit'i yerleştirilir 

RD . Verme durumu Veriler okunur. 

WR " " Veriler yazılır 

MREÇ W Ve Adres kanalı belleğe uyar 

IORO ” > Adres kanalının alt Bayt'ı 1/O Port'a uyar. 

RESET Kayıt Wi CPU'nun ön yüklenmesi 

NMİI w Cereyanı kesilmeyen kesiline talebi 

INT “ ” Cereyanı kesilen kesilme talebi 

HALT Verme ” CPU bir sonraki kesilmeyi bekliyor 

WAT Kayıt CPU sinyal aktifliğini yitirinceye kadar bekler 

BUSRO ” CPU'nun cereyanı kesilmez, harici elemanlar 

BUSAK Verme * Bellek ve 1/O Port'u kavrarlar 

BUSAK Verme ” CPU cereyanın kesilmediğini tasdik eder. 

RESH v ” Adres kanalının alı yedi Bit'i dinamik RAM'ın 
Refresh adreslerini kapsar 

MI se “ İlk makina çalışır, yani CPU bellekten komut 
kodları alır. 

Kayıt " Darbe girişi 
*5V na ii Besleme gerilimi girişi 
GND e ” Şase girişi 





Tablo 1.2 Z-80-CPU'nun sinyalleri 
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Z-80-CPU'nun sinyallerini tablo 1.2'de görebi- 
lirsiniz. Sinyal üzerindeki bir çizgi, bu sinyalin ne- 
gatif mantıkla çalıştığına işaret etmektedir. Yani 
sinyal aktif durumda O ve pasif durumda 1 üzerin- 
dedir. 


Veri, adres ve yönetme kanalları için bağlan- 
tıların yanısıra, mikro işleyicinin besleme gerilimi 
için iki (#5V ve GND) ve ölçü için de bir girişi 
vardır. 


Ölçü 


Mikro işleyici bütün görevlerini aynı anda rü- 
rütemez, emirleri adım adım yerine getirmek 
durumundadır. Emirlerin icra zamanı bir ölçü fre- 
kansı ile belirlenir. 


Mikro işleyicinin bir komutu işlediği zamana, 
bir komut devri denir. Bir komut devri, bir veya 
birkaç makina devrinden oluşur. Komut nekadar 
komplike ise, icrası için o kadar çok makina maki- 
na devri gerekir. İlk makina devrinde komut 
bellekten okunur ve kod çözülür, bundan sonraki 
devirlerde icra edilir. 


Bir makina devri de birkaç ölçü devrinden o- 
luşur ve bunların süresi ölçü frekansı ile belirlenir. 
Bir ölçü devri bir ölçü peryodu uzunluğundadır. 


Bir komut devrinin ilk makina devri, şu ölçü 
devirlerine ayrılabilir: komutun CPU'ya yüklenmesi, 
program sayıcının bir yükseltilmesi, komut kodunun 
çözülmesi (ve basit komutların icrası) ve (bazı 
mikro işleyicilerde) dinamik RAM'lar için yeni öl- 
çü verilmesi. Komut basit ise, komut devri sadece 
bu ilk makina devrinden oluşur. Aksi takdirde bunu 
diğer makina, devirleri takip ederler. 
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Bir komut, komplikelik derecesine göre, birkaç 
ölçü devrinden oluşabileceği gibi, yüzlerce ölçü devri 
uzunluğunda da olabilir (meselâ 32 Bitlik virgüllü 
sayıların işaretli bölmesinde). Z-80-CPU mikro işle- 
yicisinin en uzun komutları 23 ölçü devrinden oluşur. 
CPC 464'ün sistem ölçüsü olan 4 MHz'lik bir ölçü 
frekansında, 23 ölçü devri 5,75 us'lik birzarmanalır. 


1.3 Bellek 


Bir bilgisayar için bellek, mikro işleyici kadar 
önemlidir. Bellek olmadığı takdirde, mikro işleyici 
sadece yazmaçlara sığacak kadar veriyi işleyebilir. 
Bellek bulunduğu takdirde, işlenebilecek veriler an- 
cak bellek kapasitesiyle sınırlanır. 


İnsanlardaki uzun, kısa ve çok kısalık hafızalar 
gibi, bilgisayarın da yapıları gereği farklı süreli de- 
polamalar için uygun farklı bellek tipleri vardır. 


Yazmaç 


Mikro işleyicinin yazmacı insandaki çok kısa 
sürelik hafıza ile karşılaştırabilir. Buraya sadece di- 
rekt olarak gerekli olan bilgiler kaydedilir. Meselâ; 
bundan sonraki mantıksal ve aritmetik bağlantı de- 
gerleri, alt program yordamlarının adresleri, kaydı- 
rılması gereken veri bloğunun çalışma adresleri vs. 


RASTGELE ERİŞİMLİ (ÇALIŞMA) BELLEK 
(RAM). Bilgisayarın kısaca RAM olarak adlandırılan 
çalışma belleği insanın kısa süreli hafızası gibidir. 
Bu bellekte bilgileri gerilim olduğu sürece bulunan 
yazma ve okuma bellekleri vardır. 


RAM statik ve dinamik olarak sınıflandırılabilir. 
Statik bellek satırları flipflop gibi yapılmıştır. De- 
gerler okunur ve çalışma gerilimi kesilinceye kadar 
kayıtta kalır. 
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Dinamik bellek satırı, prensip olarak sadece 
bir FET transistor (Alan etkili transistor) ve bir 
kondansatörden oluşmaktadır. Kondansatör yüklen- 
diği zaman bellek satırının değeri !, boşaldığı za- 
man 0'dır. Her yapı elemanı için statik RAM'dakin-— 
den daha yüksek yoğunlukta Entegreler bulunması, 
dinamik RAM'ın bir üstünlüğüdür. 


Böylece CPC 464'ün dinamik RAM belleği sa- 
dece 8 entegreden oluşmuştur. Bu entegrelerin her 
birinde 64KB x 1 Bir'lik veriler organize edilebilir, 
yani her Bit için 65536 adres bulunmaktadır. Bu se- 
kiz Entegre paralel bağlanırsa 64KBx8 Bit yani 64 
KByte RAM elde edilir. Bu aynı zamanda CPC 464 
çalışma belleğinin kapasitesidir. Bellek alanının üst 
kısımdaki 16 KByte'lik kısmı video ekranını içeren 
ekran belleği tarafından doldurulduğu için çalışma 
sistemi ve kullanıcı için sadece 48 KByte'lik alan 
bulunmaktadır. o Dinamik RAM'ın tek mahsuru 
dinamik RAM'a nazaran daha karmaşık kullanılması- 
dır. Dinamik bellek satırının kondansatörü zamanla 
akımın akması ile yükünü kaybedeceğinden yaklaşık 
2 milisaniyede yeniden yüklenmesi gerekir. Bu du- 
rum Refresh (canlandırma) olarak tanımlanır. 


Modern mikro işlemciler bilgi ve adres kanalı- 
nı kullandıkları zaman dinamik RAM'ın Refresh'ini 
korurlar. Bu amaç için Z-80-CPU da özel bir Ref- 
resh devresi vardır. Bu devrenin değeri periyodik o- 
larak bir yükseltilir ve adres kanalının alt 7 Bit'lik 
alan üzerine Refresh adresleri verilir. Bir bilgisaya- 
rın RAM belleği şu anda çalışan işlemekte bulunan 
programı, alfa nümerik bilgileri ve çalışma sistemi- 
nin özel bilgilerini içerir. 
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Sabit Değer Belleği (ROM) 


Devamlı kullanılan ve unutulmaması gereken 
bilgiler bilgisayarın sabit değer belleğinde bulunma- 
lıdırlar. Bunlar ROM, PROM, EPROM ve EEPROM 
olarak ayrılırlar. Bütün bu bellek tiplerinin ortak bir 
özelliği vardır: Çalışma gerilimi kesildiği anda silin— 
mezler aksine içeriklerini korurlar. 


ROM (salt okunur bellek), içeriği üretimi 
sırasında tesbit edilen bir sabit değer belleğidir. 
Her bir bellek satırı iki belirli noktanın iletken ya- 
da iletken olmayan bağıntısına uyar. 


PROM (Programlanabilir salt okunur bellek) 
içeriği müşterisi tarafından tesbit edilebilen bir sa- 
bit değer belleğidir. 


EPROM (silinebilen programlanabilir salt oku- 
nur bellek) aynen PROM gibi bazı bellek satırlarına 
yüksek gerilimlerin bağlanmasıyla programlanabilir. 
PROM'un aksine EPROM silinebilmektedir. Şayet 
entegrenin yüzeyleri yaklaşık yarım saat yada bir 
saat bir UV-lamba ile aydınlatılırsa, içindeki bilgi- 
leri kaybeder. Bu da onun silinebilirlik özelliğidir. 


EEPROM'un (elektriksel silinebilen program'la- 
nabilir salt okunur bellek) EPROM'dan ayrı olan bir 
üstünlüğü ise, elektriki olarak silinebilmesi ve kul- 
lanıcının hangi bellek satırlarının silinmesi gerekti- 
ğini tespit edebilmesidir (EPROM ise EEPROM'un 
aksine tamamen silinmektedir). Bunun için EEPROM 
en pahalı sabit değer belleğidir. 
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Harici Bellekler 


Buraya kadar awlatılan bellek tipleri direkt o- 
larak bilgisayar muhafazasının içersinde bulunur ve 
dahili bellekler olarak adlandırılır. Bilgisayarın en 
büyük bellekleri ise cihaz haricinde bulunur ve hari- 
ci bellekler olarak tanımlanır. Buna kitaptan diskete 
kadar veri taşıyıcıların tüm şekilleri dahildir. 


Burada kitabı da belirttiğimize belki şaşıracak- 
sınız ama, kitap ta bir bellektir, zira bazı bilgiler 
içermektedir. Bilgisayarınız sadece kitapla oluşamaz. 
Önce bilgileri değiştirmeli ve bilgisayara okunacak 
şekilde sunulmalıdır. Meselâ bunu kitaptaki bir 
program listesini CPC 464'e yüklemekle başarabilir— 
siniz. Böylece kaset ve disketlerin manyetik veri ta- 
şıma özelliği bellekte sınırlandırılmış olur. 


Kaset zamanımızda en kolay genişletilebilen 
bir bellek aracıdır. Bir kaset yaklaşık | DM olması- 
na rağmen, üzerine | MBayı'a kadar bilgi alabil- 
mektedir. Ayrıca kaset teyp'in de fiyatı oldukça u- 
cuzdur. Bu bakımdan kaset-bellekler oldukça ilgi 
çekmektedir. 


Kasetin mahsurları ise işaret yoğunluğunun az- 
lığı ve taşıma hızının düşük olmasıdır. İlk bilgisayar- 
lar 300 Baud (Bit/saniye) ile çalışırken, standart 
bilgisayarlar yaklaşık 1200 Baud'a ulaşmaktata, dis- 
ketlerin hızı ise su hızını geçmemektedir. Ayrıca 
kasetin arzu edilen programın başladığı yere kadar 
uzunca bir süre sarılması gerekir. CPC 464 2000 
Baud hıza ulaşabilmekte ve ayrıca hızlı sorabilen 
motoru ile övülmeye değer bir özellik arzetmektedir. 


Disket kasetten X 10 daha hızlıdır. Bu bellek 
aracı kasete nazaran dakikada birkaç yüz devir daha 
fazla dönmektedir. 
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Ayrıca bir disket kasetin aksine daha kesin 
şekillidir. Disket yine hususi sektörlerden (alanlar- 
dan) oluşan daha fazla bölüme ayrılmıştır. Bir sek- 
tör 128 Bayt (tek yoğunluk) yada 256 Bayı (çift 
yoğunluk) içerir. 


CPC 464'ün disketi 180 KBaytı'a kadar bilgile— 
ri taşıyabilir. Disketin herbiri 128 Bayı'lık 36 
sektörlü 40 bölümü vardır, böylece basit yazı .yoğun- 
luğu ile çalışır (tek yoğunluk ile çalışır). 


Disket kullanmanın mahsuru disketin yüksek 
fiatıdır. Sadece tek yüzünden yararlanılabilinen tek 
ses başlıklı bir disket yaklaşık bir bilgisayar fiatı 
kadardır. Çift yüzeyi kullanılabilen ve çift ses baş- 
lıklı bir disket tabii ki çok daha pahalıdır. 


CPC 464'ün disketi ana cihaz kadar pahalıdır. 
Bunun için daha rahat genişletilebilen CP/M çalışma 
sistemi ve Logo programlama dili bulunan sistemleri 
tercih ediniz. 


1.4 Kaset-Teyp 


Programların ve bilgilerin kaydedilmesine yara- 
yan kaset-teybin cihaz üzerinde bulunması CPC 464'ün 
bir üstünlüğüdür. Böylece komputerin ve elekironik 
teybin birbirine optimal bir şekilde uyması sağlan- 
mış herhangi bir adaptasyon problemleri oluşmasını 
engellemiştir. Kaset başa yada sona doğru sarılır- 
ken keskin bir ses çıkarır ve EJECT tuşuna ani bir 
şekilde basarsak, teybe yerleştirdiğimiz kaset yukarı 
doğru fırlar. Bu durumda yayın biraz gevşetilmesi 
gerekir. Bu özelliklerden de görüldüğü kadarıyla 
teybin mekaniği sağlam ve çalışması düzenlidir. 
Elektronik kısımda oldukça güvenilir olmasına rağ- 
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men düşük değerli kasetlerde okuma hataları oluşa- 
bilir. 


Baud - Hız Bölümleri 


Programlayıcı, üzerinde iki farklı bilgi aktar- 
ma hızı bulunmaktadır. Birincisi 1000-Baud'luk ikin 
cisi ise daha hızlı 2000 Baund'luktur. 


Hesaplama esasında 8,2 yani her KBit için 4,l 
saniyelik süre okuşur. Bu değere pratikte ulaşılamaz. 
Zira CPC 464'ün verileri 2 KBit'lik sabit bir formda 
kaydedilmektedir. 1000 Baud'luk çalışma şeklindeki 
formda ön gerilim, 7 saniye tanıma, 17 saniyede 
bilgiler için gereklidir. 


2000 Baud'luk çalışma şeklinde de 3 saniye ön 
gerilim, 3,5 saniye tanıma, 8,5 saniye de bilgiler 
için gereklidir. 


Bu çalışma şekli 2 KBit'lik blok'un tam 
bir şekilde belirtilme hususunda geçerlidir. 


1000 Baud'luk bilgi taşıma bölümünde CPC 
464'ün 2 KBit için 27 saniyeye 2000 Baud'luk hızda 
ise komple blok için toplam 15 saniyeye ihtiyaç var- 
dır. Gerçekte sadece 17 saniye yada 8,5 saniye sü- 
resince bilgiler aktarıldığı için CPC 464'ün aktarma 
bölümü oldukça yavaş oluşacaktır. 1000 Baud'luk bö- 
lümde zamanın X 63'ü 2000 Baud'luk bölümde 
* 57'si bilgi aktarmaya harcanır. 


Sizin için hangi bölüm daha iyidir? Bilgiler ve 
programların bir kopyasını yapan programlayıcı 2000 
Baud hızlık bölümde güvenilir bir şekilde çalışabilir. 
Bu kopye şayet istisnai bir şekilde bir okuma 
hatası oluşursa kullanabilir. 
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Zamandan dolayı ilave bir kopya hazırlamaktan 
kaçınılırsa 1000 Baud'luk daha yavaş ve emin olan 
bölüm seçilmeli ve en iyi. en kaliteli kaset kullanıl- 
malıdır. 

(Dikkat: Kromdioksit kasetler kullanmayınız!) 


1.5 Harici Donanım 


Harici donanım olarak direkt ana cihaza bağlı 
olmayan ve mikro işleyici bellek, giriş-çıkış ports'- 
undan oluşan bütün birimleri belirtilmektedir. CPC 
464'ün harici donanımı olarak tuş takımı, kaset-teyp 
ve monitordur. 


Tuş Takımı 


CPC 464'ün tuş takımı zedelenmeyen ve rahat 
kullanılan 74 özel tuştan oluşmaktadır. Bu tuş takı- 
mı yapımı itibariyle oldukça tesirli ve pratikteki 
kullanımı da daha kolaydır. 


CPC 464'ün tuş takımı Z ile Y harfinin yer 
değiştiği ve Alman umlautlarının olmadığı bir Ame- 
rikan stili bir tuş takımıdır. 


KEY-DEF komutu ile Z ve Y harflerinin yeri 
değiştirilebilir, SYMBOL komutu ile alman umlaut- 
ları belirtilmelidir. (Bakınız: Konu 2.4.4) 

Kaset-Teyp 

Kaset-Teyp son bölümde geniş bir şekilde an- 
latılacaktır. 

Monitor 


CPC 464'ün en enteresan harici donanım birimi 
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şüphesiz Xi monitordür. Cihaz satın alınırken tek 
renkli yeşil monitor yada renkli monitor seçilebili— 
nir. 

Her monitorün avantaj ve dezavantajları vardır. 


Her iki monitorde CPC 464'ün şebeke enerjisi— 
ni sağlarlar. Dikkat: Monitor olmadığı zaman kom- 
puterde akım yoktur. 


Monitorün şebeke enerji kısmı her iki durumda 
da 3 Amperlik bir çıkışı akımı üretir. Bu 5 Volt'luk 
gerelim iletiminde 15 Watt'lık çıkış gücüne uygun- 
dur. CPC 464 için sadece 10 Watılık bir güce gerek- 
sinim vardır. Bunun da | Watt'lık kısmı kaset-teybe 
harcanır. Böylece özel amaçlar içinde 5 Watt'lık bir 
yedek güç bulunmakta, yani harici devreler için 7 
Ampere kadar akım kullanabilirsiniz. Böylece CPC 
464 gerilim sağlama işlemini derhal kesmeyen 
birkaç komputerden biridir. Cihazın genişleme (ya- 
yılma) kısmındaki iki adet Led-Diyot çalışmaktadır. 
(Bakınız: Konu 1.6.1) 


Modülatör 


Aynı şekilde kesici kısımdan bir Hf-Modülatör 
elde edilebilir. Modulatör CPC 464'ün Monitör çıkış 
sinyalini televizyon cihazının tanıyamıyacağı (algıla- 
yamayacağı) şekilde değiştirebilir. Sadece © yeşil 
monitörünüz varsa bu durumda cihaza bir renkli te- 
levizyon cihazı bağlayabilirsiniz. 


Modülatörde şebeke kısmının ne aradığını ken- 
di kendinize belki düşüneceksiniz. Gördüğümüz gibi 
CPC 464 monitörüne bağlıdır. Şayet bir monitör 
bağlamazsak, modülatör akımı temin etmeyecektir. 
Televizyon cihazının bağlantısı için neden bir modü- 
latöre ihtiyaç vardır? Normal bir anten kablosu ye- 
terli değil midir? 
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Basitçe tarif edilecek olursa modülatör bir yö- 
netim birimi ve bir ekran tüpünden oluşmaktadır. 


Yönetim birimi giriş sinyalinden video resmi 
teşekkül eder ve ekran tüpü üretilen bu resmin 
görünmesini sağlar. Renkli cihazda değişik gönderi- 
leri algılayabilen bir Tuner (alıcı) bulunur. Bu Tuner 
her antenin gönderdiği dalga karışımlarından belirli 
bir frekansı seçer ve taşıyıcı dalganın Demodülasyo- 
nu ile, yönetim birimi tarafından oluşturulan video 
resmi üretir. Televizyon cihazı aslında alıcılı bir 
monitörden başka bir şey değildir. 


Televizyon cihazının Tuner'inin mahsuru moni- 
tör için belirli video sinyali direkt bilgisayordan al- 
maması, aksine taşıyıcı dalgayı üreten ve video sin- 
yalini bu dalgaya modüle eden bir modülatöre ge- 
reksinirmn duymasıdır. Televizyon cihazının Tuner'i 
modülasyon aracılığıyla taşıyıcı dalgayı ve yararlı 
sinyali avırdeder. Bu teknik yol ve televizyonun mo- 
dülarör karşısındaki zayıflığının (18 MHz'e karşılık 
5,5 MHz) sebebi; renkli resmin 50 işaret/satırdan 
itibaren net olmaması ve karışmasıdır. Ciddi kuila- 
nımlarda (meselâ metin işleme programında) bundan 
dolayı monitör gereklidir. 


Basıcı 


Ekranın yanında bilgisayarın en önemli kayı/ 
verme birimi basıcıdır. Genelde iki rip basıcı vardır. 
Matris basıcı ve matbaa tipi basıcı. Matris basıcılar 
basılması gereken her işareti nokta matrislerden ©- 
luştururlar. Bir nokta matrisinin nokta sayısı bu du- 
rumda yazı resminin niteliğine bağlıdır. 


Matbaa tipi basıcılar tarif edilen bütün işaret- 
ler için daire şeklindeki baskı damgaları kullanırlar. 
Matbaa tipi basıcı böylece tuş takımı olmayan 
elektrikli bir daktilaya benzemektedir. 
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Bilindiği gibi her sistemin yararları ve mahsur- 
ları vardır. Matris basıcıların üstünlüğü yüksek baskı 
hızı, düşük ücret ve noktalardan oluşan grafiklerin 
ifade edilebilme kabiliyetidir. Buna karşın matbaa 
tipi basıcılar üstünlüğü oldukça temiz yazı resmi ve 
yazı tarzının çabuk bir şekilde değiştirilebilmesidir. 


Gelecekte Matris basıcılar daha çok kullanıla- 
caktır, zira matbaa tipi basıcıdan 50 kez daha 
hızlı, fiatı ise yarı yarıya ucuzdur. 


Ayrıca modern Matris basıcılar kabul edilen 
bir yazı şeklinin hakkını vermeye çalışır. Baskı kali— 
tesi için nokta matrisin inceltilmesi ve baskı hızının 
düşürülmesiyle, matbaa tipi basıcıdan çok zor ayır- 
dedilebilen bir yazının oluşturulması mümkündür. Bu 
baskı kalitesi genelde bitişik harf kalitesi (NLO) o- 
larak belirtilir. En yeni matris basıcılar matbaa tipi 
basıcılardan ayırdedilmeyecek bir yazı resmi verebil- 
mektedirler. Bunlar zamanımızda birkaç bin mark 
daha pahalıdır ve kalitelerini (LO) ile belirtirler. 


Schneider firması tarafından CPC 464 için su- 
nulan NLO 401 basıcısı isminden de anlaşıldığı gibi 
bir NLO moduna sahiptir. Baskı hızı en hızlı durum- 
da saniyede 50 işarettir. Çok fazla bilgiler basmak 
yada profesyonel metinleri işlemek istiyorsanız daha 
konforlu bir basıcı ile çalışabilirsiniz. 


Planlayıcı 


Matris basıcının grafik imkânları size yeterli 
gelmiyorsa, bir plânlayıcı kullanmanız gerekecektir. 
Bu cihaz iki yöne hareketli ucuyla tabii işaretleri 
yazabilir. Bunların tek renkli, çok renkli ve | mm'- 
den 0,05 mm kadar incelebilen yazı karakterli tiple- 
ri vardır. 
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Diğer Çevre Elemanları 


Bu arada CPC 464 için çeşitli harici çevre e- 
lemanları sunulur. CPC 464'ün komple bellek osilos— 
kopunu değiştiren bu sistem ADU (Anolog-Dijital- 
Çevirici)'dur. Bu şüphesiz ki orijinal bir fikirdir, fa- 
kat 10 KHz'in üst frekanslarında kullanıcı için uygun 
değildir. 

Becerikli amatörler şüpheli durumda CPC 464'- 
ün çevre elemanlarından çekinmezler. 


1.6 Kesim Konumu 


Kesim konumu bilgisayar ve çevre donanımı 
arasında bir bağlantı kurmalıdır. CPC 464'ün arka 
tarafında farklı kullanımlara uygun birçok kesim ko- 
numu vardır. Aşağıdaki konu değişik kesim konumla- 
rı sinyallerinin fonksiyon ve bağlantılarını açıkla- 
maktadır. Ayrıca çevre birimlerinin hangi konuma 
ne şekilde bağlanabileceği de açıklanmaktadır. 


1.6.1 Geliştirme Bağlantısı 


CPC 464'ün geliştirme bağlantısı bilgisayarın 
yaklaşık tüm sinyallerini verebilmektedir. Bu kesim 
konumlarının bağlantısı gerçi CPC 464'ün el kita- 
bında basılmışsa da bazı hususi sinyallerin anlamı 
belirtilmemiştir. Bunları Tablo 1.3'de bulabilirsiniz. 


Hususi sinyaller aşağıdaki gruplara ayrılmıştır: 


— 
. 


Veri (CO'dan D7'ye kadar) 

2. Adresler (A0O'dan Al5'e kadar) 

3. Yönetim kanalı (MREO, MI, RESH, IORG, RD, 
RE) INT, NMI, BUSRO, BUSAK, READY, 
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4. Bellek aktifleştirme sinyalleri (ROMEN, ROMDIĞ, 
RAMRD, RAMDIS) 

5. Özel sinyaller (SOUND, CURSOR, LIGHTPEN, 
EXP, CLOCK) 


İlk üç grubun sinyalleri CPC 464'ün mikro iş- 
lemcisi tarafından üretilir. ROM ve RAM belleğin 
aktifleşmesi ve aktifliğini yitirmesiyle ilgili sinyaller 
ile Gate Array uğraşır ve CLOCK hariç son grubun 
bütün sinyalleri PIO ve CRTC tarafından üretilir. 


CLOCK sinyalini darbeyi dörde bölen Gate Ar- 
ray ve kristal üretir. 


Normal olarak disketin durması geliştirme 
bağlantısına bağımlıdır; şayet bağlantının bütün çı- 
kışlarını harekete geçirirseniz ve girişlerine TTL—se- 
viyesinde sinyaller bağlarsanız, özel devrelerinizi de 
bağlayabilirsiniz. 





AYAK işareti Aktif durumdaki sinyalin anlamı 

1 SOUND Ton çıkışı 

2 GND Şase bağlantısı 

3 AS Adres kanalının en yüksek değerli Bit'i yerleşti- 
rilmiştir. 

4 Alâ Adres kanalının en düşük değerli Bit'i yerleşti- 
rilmiştir. 

5 A n n n 

6 AlZ2 > - Mi 

7 Al n n n n 

8 Al0 N — ” 

g A9 n 'n " 

10 A8 n n n 

uu A7? n n n 

12 AG n n n 





Ayak I 
No. 


şareti Aktif durumdaki sinyalin anlamı 





3 
# 


5 BENBARBANRDR 
8 


IN” 
NMI 


BASUÜRE 
R 


: 


Veri kanalının en yüksek değerli Bit'i yerleşti- 
rilmiştir. 5 

Veri kanalının en düşük değerli Bit'i yerleşti- 
rilmiştir 


az 3 3 3 3 3e 
z 3 3 3 3 3 
z 3 3 3 3 3 


Beslerme gerilimi 

Adres kanalı belleğe hükmeder 

İlk makina çevrimi başlar, yani CPU bellekten 
komut kodlarını alır. 

Adres kanalının alt 7 8it'i dinamik RAM'ın refresh 
adreslerini kapsar 

Adres kanalının alt Bit'i 1/0-Port'a kuranda 2der 
Veriler okunur 

Veriler yazılır 

CPU Bir sonraki kesime kadar bekler 

Cereyanı kesilen kesim talebi 

Cereyanı kesilmeyen kesim talebi 

CPU'nun cereyanı kesilmistir ve cevre elemanı 
bellek ve 1/O0-Portlar da çalışır 

Cereyanın kesilmiş olduğunun CPU tarafından be- 
lirtilmesi 
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Ayak , 
No. İşareti Aktif durumdaki sinyallerin anlamı 
39 READY CPU çalıştırılır( gerilim uyaulanmıştır) 
-Âg BUS RESET CPU'nun ön yüklenmesi (giris) 
41 RESET CPU'nun ön yüklenmesi (cıkıs) 
42 ROMEN ROM bellek calıstırır 
43 ROMDIS ROM bellek kapatır 
44  RMRD RAM bellek okuma için açılır 
45 RAMDIS RAM bellek okumaya kanatılır 
45 CURSOR Kursör calıstırılır (CRTC'nin çıkışı) 
47 L.PEN Işık ibresi aktif (CRTC'nin airisi) 
48 EXP Geliştirme bağlanır (Giriş) 
49 GND Şase bağlantısı 
so Darbz çıkısı 


Tablo 1.3 Geliştirme bağlantısının ayak uçları 


Şayet numaralar doğruysa ayrıca bütün sinyal- 
ler galvanik opto bağlayıcı üzerinde ayrılırlar. Böy— 
lece devrenize kısa devre yapması halinde hiç bir 
şey olmaz. 45 Volt'u 27 no.lu ayağa yerleştirir ve 
devrenizin şasesini 2 yada 49 no.lu ayağa bağlarsa- 
nız, geliştirme bağlantısında I Ampere kadar çıkabi- 
lirsiniz. 

Buna rağmen dikkatli olmanız ve CPC 464'ün 
iletken yollarının bu akıma sürekli dayanıp dayan- 
mayacağını kontrol etmelisiniz, zira pratik bilgi de- 
gerleri zamanımızda geçerli olmamaktadır. 


1.6.2 Centronics-Xesim Konumu 


Yapısı ve Wonksiyonu 


CPC 464'ün basıcı bağlantısında Centronics- 
Kesim konumunun zayıf yorumu söz konusudur. Ay- 
rca standart kesim konumu olarak tarif edilen bü- 
tün sinyaller CPC 464 tarafından temin edilmez. 
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Centronics-Kesim konumunun CPC 464'ün sunmadığı 
en önemli sinyali en yüksek veri Bit'i D7'dir. Böy- 
lece CPC 464 ile 128'den 255'e kadarki ASCII de- 
gerleri bağlanan Basıcı'ya vermek mümkün değildir. 
Bunun için Basıcının satın alınması anında yazılımsal 
olarak Basıcı'dan en yüksek veri Bit'in yerleştirilip, 
yerleştirilmediğine dikkat ediniz. 


DO'dan 06'e 2 
geçerli N 
ler 


A 


Bir işaretin veri tasıması 


Resim 1.2 Centronics-Kesim Konumunun 
zaman diyagramı 


Aksi halde her Basıcı'nın 128'den 255'e ka- 
darki ASCII değer alanında sunduğu özel çizimler ve 
grafik çizimleri basılamaz. Bu özelliğinden de görül- 
düğü gibi CPC 464'ün kesim konumu tamamen fonk- 
siyoneldir. Karşılaştırma sinyalleri için STROBE ve 
BUSY sinyalleri bulunmaktadır, bu da kesim konu- 
munun düzenli çalışması için yeterlidir. 


Resim 1.2, karşılaştırma sinyalle Basıcının 
bağlı olduğu bilgisayar tarafından özel bir işaretin 
normal olarak aktarılmasını göstermektedir. Önce 
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CPC 464 DO'dan D7'ye kadarki veri bitlerini veri 
kanalına yerleştirir. Daha sonra basıcıya verileri ala- 
bileceğini belirten STROBE sinyali yerleştirilir. Ba- 
sıcı verileri alır ve BUSY sinyaliyle meşgul olduğunu 
gösterir. Bu sinyal aktivitesini kaybedince bilgisayar 
basıcının serbest olduğunu ve daha sonraki işareti 
taşıyabileceğini bilir. 


Basıcının Kablosu 


Basıcının CPC 464'e bağlanması için, bilgisayar 
tarafı 34 kutuplu direkt bağlantı fişi, Basıcı tarafı 
normal Centronics-fişli özel bir kablo gerekmekte- 
dir. Bu kablo malesef pek ucuz değildir. Biraz bilgi- 
niz ve beceriniz varsa, kablonun birkaç metre yüzey 
kaplamalı kablo ve iki fiş ile yapabilirsiniz. 


Tarihçe 


Centronics-Kesim konumu ismini, bu kesim ko- 
numlu basıcıyı ilk kez üreten aynı isimli Basıcı fir- 
masından almaktadır. Diğer üreticiler bunu takip 
etmiş ve pratik sebeplerden dolayı aynı kesim konu- 
munu kullanmışlardır. Kısa sürede standarılaşmış ve 
bundan sonra her Basıcı'da kesin konumu bulmuştur. 


Fakat daha sonra her Basıcı üreten firma ken- 
di "Centronics-Standart'ını" geliştirmiş ve üretmiş- 
tir. Bundan dolayı kesim konumlu yapılan bir bilgi- 
sayarı Centronics-Kesim konumlu bir Basıcıya bağ- 
lamak bugün için kısmen mümkün değildir. Dikkat: 
Her Centronics aynı değildir. 


Bundan dolayı Basıcınızı ve basıcı kablonuzu a- 
lirken cihazınızın bağlantısındaki ayak uçlarına uygun 
olup olmadığına dikkat ediniz. Aksi halde basıcınız 
çalışmaz ve CPC 464'ünüzdeki bazı entegre devreler 
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(IC-elemanları), yanar! (Basıcının bağlanması anında 
herhangi bir kesim konumu problemi olmamalıdır.) 


1.6.3 Joystick İçin Bağlantı 


Joystick bağlantının ayak ucu genel standarta 
uygundur, yani her fabrikanın ürettiği joystick CPC 
464'e bağlanabilir. Bunun için bilgisayarınızın sadece 
bir joystick bağlantısının olduğuna dikkat edilmeli- 
dir. Fakat bununla beraber iki oyuncunun aynı anda 
karşılıklı direkt mücadelesini mümkün kılan birçok 
oyun vardır. Bu nasıl olmaktadır? 


Sizin sadece bir Joystick'iniz bulunmaktadır. 
Bu Joystick tek özellik ise, üzerinde diğer bir Joys- 
tick'in bağlanabildiği bir Joystick yuvasının bulun- 
masıdır. Şayet oyunlarınız ve diğer programlarınız 
için sadece bir jJoystick'e ihtiyacınız varsa yada 
Joystick'inize ikinci bir Joystick bağlamak istiyorsa- 
nız, arzu ettiğiniz normal herhangi bir marka Joys- 
tick kullanabilirsiniz. 


Böylece en azından Joystick satın almaktan 
kurtulursunuz, tabii Joystickli bir tele oyun yada es- 
ki bilgisayarınızın Joysticklerini kullanmak isterseniz. 


Common ve COM2 Bağlantı Ayakları 


Belki bilgisayarın bir Joystick bağlantı üzerinde 
iki Joystick'i nasıl ayırdedebildiğini kendi kendinize 
sorabilirsiniz. Çözümü oldukça basittir: Bilgisayar 
Joystick bağlantısına COMMON ve COMZ sinyalleri- 
nin her ikisini de verir. COMMON sinyali aktifleşin- 
ce ilk Joystick, COMZ2 sinyali aktifleşince ikinci 
Joystick soruşturulur. Her iki sinyal COMMON ve 
COMZ her iki Joystick'in adreslenmesine yarar. 
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Teorik olarak CPC 464'e istediğiniz kadar 
Schneider marka Joystick bağlayabilirsiniz, zira iki 
mevcut COM bağlantı ayağının yanında başka hiç 
bir COM bağlantı ayağı yoktur, aksi halde ilâve ola- 
rak bağlanan Joystick'lerin soruşturulması bilgisayar 
için mümkün olmazdı. 


1.6.4 Diğer Kesim Konumları 


Diğer kesim konumları olarak CPC 464'de; 
monitörün bağlanması için bir video çıkışı ve bilgi- 
sayarın stereo-tertibata bağlanması için de bir ste- 
reo-ton çıkışı vardır. 


Video çıkışın bağlantı ayakları CPC 464'ün el 
kitabında belirtilmiştir ve bizim için pek enteresan 
değildir. CPC 464'ün Stereo-Ton çıkışı size, bilgisa- 
yarınızın hoperlöründen kısıt ve donuk mono bir ton 
yerine Hİ-Fİ cihazınızın tam ve dolu stereo tonlarını 
sunmaktadır. Bunun için sadece ton çıkışına 3,5 
mm'lik mandallı normal bir kablo bağlanmalı ve 
kablonun diğer tarafı stereo-tertibatınızın MONITOR 
yada AUX-girişine bağlanmalıdır. 
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CPC 464'ÜN BELLENİM SİSTEMİ 


Bellenim sistemi, donanım ve yazılım sistemi 
arasındadır, aynı donanım gibi üretici tarafından 
bilgisayar ile beraber gönderilir ve bilgisayarı yöne- 
ten programlardan (yazılım) oluşur. 


Bellenim, cihazın satışı sırasından sabiileştiri— 
lip takılmış yada beraberinde gönderilmiş tüm yazı- 
lım sistemi olarak belirtilebilir. 


CPC 464, bilgisayarın komple çalışma sistemini 
içeren 32 KBit büyüklüğünde ROM salt okunur bel- 
leğe haizdir. Bu ROM bellekte bir BASIC-yorumlayı- 
cı, Tuş takımı, Ekran, ses üreteci, kaset-teyp ve 
sadece önemli sistem programlarını belirtmek için 
satır ve ekran yönetim Editörü bulunmaktadır. 


Bu bölümde, CPC 464'ün belleniminin anlaşılıp 
kullanılmasından söz edilmektedir. 


2.1 Tuş Takımı Fonksiyonları 


CPC 464'ün tuş takımı Amerikan daktilo klav- 
yesinden ve sınırlı rakamlardan oluşmaktadır. Bütün 
fonksiyon tuşları renkli olarak ayrılmış, yalnız CLR- 
tuşu, DEL-tuşu ile karışmaması için bunlardan ayrı 
tutulmuştur. 


Özel tuşların fonksiyonları CPC 464'ün el kita- 
bında geniş bir şekilde anlatılmıştır, burada ise sa- 
dece kısa olarak işlenip genişletilmiştir. 
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Programın uygulanması ve listeleme sırasında 
ESC-tuşuna bir kez basmakla bir duraklama oluşur, 
iki kez basmakla faaliyet durur. 


DEL -tuşu kursör'ün (ışıklı göstergenin) solun- 
daki işareti siler, CLR tuşu ise kursör pozisyonunun 
geçici işaretini siler. 


COPY tuşu ile kopya kursör pozisyonunun işa- 
reti munzatam kursör pozisyonuna kopya edilir. 


CAPSLOCK tuşuna basmakla bütün mevcut 
harfler büyük harf olarak oluşur, CAPSLOCK tuşuna 
yeniden basılması bu fonksiyonun tersini oluşturur. 


CTRL ve CAPSLOK kendi fonksiyonlarında yazı 
makinalarının SHIFTLOCK Fonksiyonuna uymaktadır. 
Dikkat, kopya kürsoru kürsor tuşu ile hareket etti- 
ğinden bu durumda Editör kopya kürsoru ile çalış- 
maz. 


CTRL ve diğer bir tuşa basmak suretiyle 1'den 
31'e kadar ASCI! işaretleri oluşur, CTRL M; Enter 
tuşuna uyar ve CTRL P ince bir ses tonu üretir. 


TAB tuşu herhangi bir tabulatör fonksiyonu 
değil, aksine sağ tarafı gösteren bir ok oluşturur. 


ENTER tuşunu açıklamaya gerek yoktur, zira 
bu tuş bilgisayarın en önemli ve en çok kullanılan 
fonksiyonudur. 


SHIFT CTRL ESC'nin anlamı sizin için oldukça 
önemlidir. SHIFT ve CTRL tuşuna aynı zamanda ve 
daha sonra da ESC tuşuna basmakla CPC 464'ün ya- 
zılımında RESET durumu oluşur. Bütün bilgiler sili- 
nir ve bilgisayara yeniden ön yükleme yapılır. 


Sonuç olarak birkaç sözde |(SHIFT ©): - işa- 
retinden söz edelim. 


Bu işareti bir REM satırına yerleştirirsek, ol- 
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dukça tuhaf şeyler oluşur. Aşağıdaki satırları kayde- 
diniz ve bu satırları CPC 464'e listeletiniz: 


10 REMİ ! 


Ünlem işaretini kaybolur gibi göreceksiniz. Bu 
ne program metninde bulunmakta, ne de | işareti 
aşağıdaki satırların listelenmesini önlemektedir. 


İlaveten şu satırları kaydediniz ve programı 
çalıştırınız: 


20 PRINT"HALLOM" 


Yine şaşıracaksınız, zira CPC 464 hiç bir şey 
belirtmeyecektir. Program satırı 20 listelenebilir 
ama bu satırın uygulanması daha önceki REM-satı-— 
rındaki | işareti ile engellenir. 


Denemeler suretiyle bu işaretin diğer özellik- 
lerini de tespit edebilirsiniz. Düzenli bir program iş- 
levinde | işareti REM satırında kullanılmaz. 


CPC 464'de Umlaut'ları belirtmek istiyorsak, 
işaretinden küçük ö harfi oluşur. ASCIl-değeri de- 
ğişmediğinden, bu işaretin herhangi bir REM-satırına 
yerleştirilememesi, ö harfi için de geçerlidir. Bunun 
için soruşturma programının REM-satırlarına ve Ad- 
res yönetiminin REM satırlarına bakınız! 


2.2 Editör 


CPC 464'ün Editörü, yazı hatalarının düzeltilmesi 
yada bir BASIC program satırının düzeltilmesi husu- 
sunda size birçok imkânlar sağlamaktadır. Bir hatayı 
ortadan kaldırmak için toplam dört metod vardır: 
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o Yanlış bir kayıt işlemi kürsor tuşunun ve CLR ve 
DEL tuşlarının kullanılması ile ortadan kaldırıla- 
bilir. 

o Hatalı bir program satırını, satırı yeniden kay- 
detmek suretiyle düzeltebilirsiniz. 

o EDIT komutu ile düzeltilmesi gereken satıra at- 
lanabilir ve hata işaretin ilâvesi yada silinmesi 
ile düzeltilebilir. 

o Kopya kürsorü, satırların ve ekran ile aynı za- 
manda CPC 464'ün belleğinde satır aralıklarının 
istenilen yere kopya edilmesini sağlar. 


En hızlı editör metodu hatalara göre farklılık 
gösterir. 


Basit kayıt hataları ilk metodla derhal düzel- 
tilebilir. Çok kısa olan satırları yeniden kaydetmek 
en iyisidir. Hataları satır başlarında bulunan prog- 
ram şatırları en hızlı bir şekilde EDİT komutu ile 
düzeltilebilir, zira bu durumda bütün satırı kursör 
ile geçmeye gerek yoktur. 


Aynı şekilde az hatalı program satırları, bu 
durumda satırları kursör ile enine ve boyuna geçebi- 
leceğiniz için, EDIT komutu ile düzeltilebilir. 


Program satırlarının birleştirilmesi kopya kur- 
sörü ile oluşmaktadır, zira EDIT-modunda aktuel o- 
larak edite edilmiş satırlar ayrılamazlar. 


Bir satırın daha fazla sütunundaki daha büyük 
hatalarda bu metod görülebilmesi açısından en 
uygun metoddur. Sadece COPY tuşu ile kopya edilen 
ve yeniden tuşlarla kaydedilen işaretler ekranda gö- 
rülebilir ve yeni program satırının içeriği olarak 
kaydedilirler. 


Pratik uygulamalarda hangi durumlar için hangi 
editör imkânlarının en hızlı olduğu zamanla öğreni- 
lebilinir. Her metodun faydaları ve mahsurları var- 
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dır. CPC 464 ile hataların düzeltilmesi diğer bilgisa— 
yarlardan daha rahat ve kolaydır. 


2.3 BASIC-Yorumlayıcı 


BASIC-yorumlayıcı bellenim sisteminin en bü- 
yük ve aynı zamanda en önemli sistem programıdır. 
Bu program özel BASIC-komutlarını yorumlar, onları 
bilgisayar kodlarına çevirir ve (mümkün olduğu ka- 
dar) uygular. BASIC-yorumlayıcı esasen BASIC prog- 
ramlama dilini "0" ve "1" sayılarından oluşan ve 
bilgisayarın anlayabileceği sayı kodlarına çeviren bir 
çeviri programıdır. 


BASIC-yorumlayıcı komutları ne kadar iyi an- 
lar ve işleyebilirse, programlayıcı için o kadar ve- 
rimli olur. BASIC-yorumlayıcı 170 komuta ve böyle- 
ce ev bilgisayarlarının BASIC-Dialektlerine haizdir. 


2.3.1 Değişkenler 
Değişken İsimler 


CPC 464'ün değişkenlerinin isimleri 40 satıra 
kadar uzanabilir ve alfanümerik işaretlerden oluşur. 
Değişken isimlerin bir harf ile başlaması ve hiç bir 
BASIC-komut kelimesine uymaması (meselâ END gi- 
bi) özel şarttır. Bir değişken ismin bölümü olan 
BASIC-komut kelimesi ise (meselâ ende) kullanılabi— 
lir. Komutlar ve değişkenler (yada sayılar) arasında 
daima bir boşluğun bulunması gerekir. 


Diğer taraftan BASIC-yorumlayıcı bütün ifade- 
yi değişken olarak yorumlayabilir. 


Şayet Alman dilindeki Umlaut'ları belirtmek 
istersek, bu Umlaut'lar değişken isimlerde buluna- 
maz, çünkü bunlar esas işaretlerin ASCII değerlerine 
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sahiptirler ve bu işaretler yorumlayıcı tarafından 
harf olarak algılanmazlar. 


Değişken Tipleri 


CPC 464'ün üç değişik değişken tipi vardır: 


Reel değişkenler -1,70141E4*38'den *1,70141E* 
38'e kadar uzanan bir alanda herhangi bir değer a- 
labilirler. Bu değişken üstel yazı tarzında belirtil- 
miyorsa dokuz rakam, üstel yazı tarzında ise sadece 
altı rakam görülür. Reel değişken DEFREAL komu- 
tuyla yada değişken ismin arkasından hemen bir ün- 
lem işareti ile tanımlanabilir. -32768'den *32767'ye 
kadar uzanan alandaki bir tam sayı değeri tam sayı 
değişkeni olarak belirtilebilir. Bu sayı alanı 16-Bit 
yani 2-Bit'lik ifade ile tanımlanır. 


Bir tam sayı değişkeni DEFINT komutuyla ya- 
da değişken ismin ardından bir yüzde işaretinin kay- 
dedilmesi ile tanımlanabilir. 


Dizgi değişkenleri, CHR$(32)'den CHR$(255)'e 
kadar uzanan ASCI! işaretlerinden terkip olan 255 
karakter uzunluğundaki bir metni içerirler. DEFSTR 
komutu ile yada değişken isimden sonra bir dolar 
işareti verilmesi ile bu değişken tip tanımlanabilir. 
Şayet bir değişken tipi DEF komutu ile yada değiş- 
ken isimden sonra özel bir işaret verilmek suretiyle 
tanımlanmıyorsa, yorumlayıcı tip olarak otomatik- 
man REAL durumunu alacaktır. 


Değişkenlerin Belleğe Kaydedilmesi 


Şayet değişkene bir değer veriliyorsa yada de- 
gişkenin içeriği değişecekse bu yeni değer BASIC- 
yorumlayıcı tarafından belleğe kaydedilmelidir. Bu 
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amaç için CPC 464'ün çalışma (iş) belleğinde Prog- 
ram metninden hemen sonra bir değişken tabelası 
mevcuttur. 


Programlama sırasında komutların ilâve edil- 
mesi ve silinmesi ile program metninin son pozisyo- 
nu daima değişir. Birçok bilgisayarda bunun sonucu 
olarak değişken tabelaları tahrip olur yada tüm de- 
gerler silinir. 


CPC 464 program değiştirilmesi sırasında, ta- 
belaları belleğinde uygun şekilde sıralayarak, bu de- 
gişkenlere dikkat eder. 


Şayet programınızı RUN komutu ile başlatırsa- 
nız, otomatik olarak bütün değişkenler silinir. GOTO 
komutu ile de bu durum önlenebilir. Böylece bütün 
değişken değerler olduğu gibi kalır ve program atla- 
nan satırda çalışmasına başlar. Fakat bu satırda bir 
CLEAR komutu bulunursa, mevcut bilgiler silinirler. 


2.3.2 BASIC-Komutları 
CALL 


CALL komutu ile bellenim sisteminin özel 
RAM yada ROM yordamları (programları) çağrılabi- 
lir. Bu komutu kullanırsanız ve parametrik (değiş- 
ken) nicelik kaydederseniz, bütün değerler -32768 
ile 65535 arasındaki alanda bulunurlar. 


CHR$ 
CHR$ #CHR$(n) komutu n sayısının ASCII değe- 


rini belirtir. Bu şekilde ASCI!'yi 1'den 31'e kadar 
getirmek mümkündür. 
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CHR$(7) kaydedildiği zaman bilgisayar ince bir 
sesle cevap verir. 


CHR$(22)4*CHR$(1) komutu ile transparent mo- 
du çalışır, CHR$(22)4CHR$(0) komutu ile bunu tek- 
rar kaldırabilirsiniz. 


CHR$(24) komutu kâğıt rengini yazı rengi ile 
değiştirebilirsiniz. Böylece siyah-beyaz monitörün 
sahibi olarak video resmi invertleyebilirsiniz. 


DEC$ 


DEC$ komutu bilgisayarda BASIC-Kodları ger- 
çekleştirilmiştir. Burada dec$ yazımının diğer BASIC 
komutlarında olduğu gibi listeleme sırasında otoma- 
tikman büyük yazım şekli DEC$'e çevrildiğini göre- 
ceksiniz. Her deneme sırasında bir hata belirtisi gö- 
rüldüğü için bu komutu yönetmek mümkün değildir. 
BIN$ ve HEX$ komutlarına eşdeğer olan DEC$ ko- 
mutu bir sayıyı desimal sayı sistemine çevirir. İkili 
ve altlı sayılar PRINT komutu ile otomatik olarak 
desimal sayılara çevrildiği için bu fonksiyon lüzum- 
suzdur. 


ENT 


Konu 2.5.4'e bakınız. 


ENV 


Xonu 2.5.3'e bakınız. 


IN KEY$ 


Bir veri proğrama ara verilmeden INKEY$ ko- 
mutu kaydedilebilir. 
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Bazen INKEY$ komutu ile INPUT komutunun 
yanlışını göstermek mümkündür. Böylece bilgisayar 
tuşları soruşturmak suretiyle bir verinin kaydedilme— 
siyle paralel olarak diğer işlemleri de gerçekleştire-— 
bilir. Eğer programının CALL 47944'le program ke- 
silmesine karşı korumak istiyorsanız bir imkân daha 
ortaya çıkmış olur. Her INPUT komutu bu fonksiyo- 
nu sona erdirir. INKEYS komutunun kullanılması ile 
aksaklık önlenmiş olur. 


INPUT'la basit bir yanlış gösterme 


10 text$s" " 

20 FOR laufsl TO n 

30 a$sINKEY$:1F" " THEN 30 

40 text$mtext$ta$ 

50 next lauf 

(lauf yerine bir değişken konulacaktır) 


Bu küçük program n işaretinden oluşan bir 
metnin kaydedilmesini sağlar. Böylece CLR ve REL 
tuşlarının editör ihtimalleri işlev dışı kalacaktır. 


Merge 


MERGE komutu ile birçok özel BASIC-prog- 
ramlarını büyük bir programla birleştirmek mümkün- 
dür. Tek şartı; yeni program satırlarının eski satır— 
ların üzerine yazılmaması için programın satır nu- 
maralarının Oo çatıştırılmamasıdır. Eğer RENUM 
komutu “ile programın sajır numaralarını birleştirme- 
den önce numaraları değiştirirseniz hiç bir yanlışlık 
olmaz. 
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MOD ve 


Mod ve komutları CPC 464'ün el kitabında 
gösterilmemiştir, buna rağmen cihaz üzerinde kusur- 
suz bir şekilde çalışırlar. Eğer bir bölme işleminde 
birleştirme işareti "/"nin yerine " " işareti kulla- 
nırsanız bölme işleminin tam sayılı sonucunu elde 
edersiniz. Aynı durumda MOD komutu yerleştirilirse, 
bölmenin tam sayı kalanı bulunur. 


OPENIN ve OPENOUT 


Şayet bir veriyi OPENOUT name komutu ile 
name ismi altında hafızaya yüklerseniz, bu veri 
OPENIN name komutu ile tekrar okutulabilir. Aksi 
halde hatalı olacaktır. Veri isimleri sadece büyük 
harflerden oluşabilirler, yani veri name ismi altında 
değil, bilâkis NAME ismi altında geçirilir. Şayet bu 
veriyi name ismi altında okutmak istiyorsanız, name 
ve NAME bilgisayar için aynı şeyi ifade etmediğin- 
den dolayı bilgisayar saçmalamaya başlayacaktır. 


Verileriniz sabit bir isim değil de, değişken bir 
isimse bu durumda daha fazla karmaşıklık oluşacak- 
tr. 


OPENOUT name$ komutu ile bir veriyi hafıza- 
ya kaydederseniz ve name $ değişkeni küçük harfle 
olursa, bu veri yalnız OPENIN UPPER $ (name $) 
komut zinciri ile okutulabilir. Name $ değişkeninin 
metin uzunluğu değişik şekillerde oluşuyorsa INPUT 
name $ metninden önce name $ - STRING$(16,") 
komutu verilmelidir. Bu komut değişkene 16 boş i- 
şaretten (karakterden) oluşan bir metin sağlayacak- 
tr. Şimdi haklı olarak bunun neden yapılması ge- 
rektiğini soracaksınız. 


Şayet OPENOUT name $ komutu ile bir veriyi 
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hafızaya kaydetmek isterseniz ve name $ değişken 
metninin uzunluğu her defasında daha da artacaksa, 
kaydedilmesi gereken veri belki de name $ değişke- 
nini almayacaktır. Bellenim sisteminin bu hatası, 
gerçek metninizin yazılmasından önce değişkene 
maksimal (veri isimlerinde 16 yer) uzunlukta bir 
metin ayrılması ile ortadan kaldırılabilir. 


Bu durumu anlayamadıysanız, 3 bölümdeki so- 
ruşturma programında verilerin kaydedilmesi ve oku- 
tulması durumuna bakınız. 


RANDOMİZE 


RAMDOMİIZE komutuna, rastgele bir sayı zin- 
cirinin başlangıcını ifade eden bir sayı kaydedilme- 
lidir. RANDOMİZE komutuna TIME kaydederseniz, 
her program işleyişinde diğer bir rastgele sayı zin- 
ciri oluşacaktır, zira TIME değişkeni RANDOMİZE 
komutunun her geçişinde değeri bir değeri kapsaya- 
caktır. 


RENUM 


RENUM komutu ile programınızın satırlarını 
istediğiniz şekilde numaralayabilirsiniz. Bununla be- 
raber başlangıç noktasının yanında numaralama işle- 
mi için bir de bitiş noktası tespit etmek mümkün 
değildir. Programınızı daima baştan sona kadar nu- 
maralatmalısınız. Kendi sıralarında bulunan esas 
programları bu programda yeniden numaralarsanız 
amaca ulaşmış olursunuz, çünkü RENUM komutu 
başlangıç noktasından itibaren daha önceki RENUM 
komutunun numaralamasını mantıki bir şekilde orta- 
dan kaldırır. 


Böylece, konu 2.3.3'de de belirtildiği gibi, bir 
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tasnif işlemini gerçekleştirebilirsiniz. 


RND 


RND komutu kullanılan BASIC-diyalektlerinin 
alışkın olduğu şekilde çalışmaz. Minimumdan maksi- 
muma kadar rastgele bir sayı üretmek için INT 
(RND  (maxımum-minimum*l)sminimum) ifadesini 
kullanmanız gerekmektedir. 


SOUND 


Konu 2.5.2'ye bakınız. 


SYMBOL 


SYMBOL komutu CPC 464'ün el kitabında pek 
anlatılmamıştır. Şayet yeni bir sayı ifade etmek is- 
tiyorsanız. bilgisayara önce SYMBOL AFTER n ko- 
mutu ile ASCI!I işaretlerinin nokta matrislerinin n 
sayısından itibaren RAM hafızaya kopya edilmesinin 
gerektiği bildirilmelidir. Şimdi SYMBOL komutu ile 
n'den 255'e kadarki bütün ASCI! değerlerini değiş- 
tirebilirsiniz. Şayet n sayısı 239'dan büyükse, 
SYMBOL AFTER komutu kullanılmayabilinir, zira 
240'dan 255'e kadarki ASCIi işaretlerinin nokta 
matrisleri standart olarak RAM hafızada bulunurlar 
ve bundan dolayı hafızaya kopya işlemi gereksizdir. 


SYMBOL komutunun ilk parametresi yeniden 
ifade edilmesi gereken işaretin ASCII değerini belir- 
tir. Diğer sekiz parametre yeni sembol için Bir 
(ikil) örneğidir. İlk değer yerleştiği ikiller suretiyle 
(Bit), yeni işaretin üst satırında hangi noktaların 
yerleştirilmesi gerektiğini belirtir, son değer alt sa- 
turların örneğini temin eder. 
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Örnek: SYMBOL 240, 255, 129, 129, 129, 129, 
129, *29, 255 komutu 240'ın ASCII değeri için bir 
dikdörtgeni ifade eder. 255'in ikili değeri Illlll'dir, 
yani 240 işaretinin birinci ve sekizinci satırı tama- 
men yerleşmiştir ve dikdörtgeni alt ve üst tarafını 
teşkil eder. 129'un ikili değeri 10000001'dir. Yani 
birinci ve sekizinci satır arasındaki bütün satırlarda 
sadece birinci ve sonuncu satır doludur. İkiden yedi- 
ye kadar olan satırlar dikdörtgenin yana! sınırlarını 
(yan taraflarını) oluşturur. Bütün satırların biraraya 
getirilmesi ile tam bir dikdörtgen oluşur. 3u duru- 
mun öğrenilebilmesi için birçok denemenin yapılma- 
sında fayda vardır. 


TRON ve TROFF 


TRON ve TROFF komutları programdaki hata- 
ların mükemmel bir şekilde aranmasına yararlar. 
TRON komutuyla Trace-Modunu çalıştırırsanız, bil- 
gisayar çalışan program satırlarının satır numarala- 
rını ifade eder. Böylece programın ve hangi satırla- 
rın çalıştığını görebilirsiniz. TROFF komutu ile Tra- 
ce-Modunun çalışmasını kesebilirsiniz. 


ZONE 


ZONE komutu ile baskı alanının genişliğini 
tespit edebilirsiniz. PRINT kumandası ile virgülle 
ayrılmış verileri kaydedersek, bu baskı alanları ce- 
vap verebilirler. İlk virgülün önündeki veriler ilk 
baskı alanına kaydedilir, ilk virgülden sonraki veriler 
ikinci baskı alanına kaydedilir. 


Baskı alanı ekranın arta kalan kısmından daha 
genişse, bu alan otomatikman bir sonraki satırın ba- 
şına yerleştirilir. Böylece örneğin MODE 1'de ve 
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ZONE 41'de bütün veriler, tek bir alana bir sa- 
tırın uyduğundan dolayı, altalta kaydedilirler. 


Tabela hazırlamak için ZONE komutu özellikle 
çok uygundur. 


Sayıların Yuvarlatılarak İfade Edilebilmesini 
Sağlayan Komutlar 


Sayıların yuvarlatılması için dört komut bulun- 
maktadır: CINT, FIX, INT ve ROUND. 


CINT komutu, sayının virgülden sonraki kısmı en 
azından 0,5 ise, sayıyı tam alanında yuvarlar (-32768'den 
32767'ye). Negatif sayılar da yeküne bağımlı olarak 
yuvarlatılır, yani sayılar -'ye değil aksine bir üst sa- 
yıya yuvarlatılır! 


FIX komutu herhangi bir sayının sadece virgül- 
den önceki kısmını verir, INT komutu bir sayının en 
küçük tam sayılı değerini ifade eder, böylece her 
ikisi de sayıları yuvarlatmış olur. 


ROUND komut ile sayılar virgülden sonraki sa- 
bit bir değere yuvarlatılır. 


Arzu ettiğiniz yuvarlatma tarzına göre uygun 
komutlardan birini kullanabilirsiniz. 


ROUND fonksiyonu INT (zahl * !En*0,5)/1En 
komut zincirini uygun şekilde tamamlar. Bu fonksiyon 
zahl değişkenini virgülden sonraki n yerine yuvarlatır, 
örneğin: INT(123.456 * 10040,5)/100 sonuç olarak 
123,46 sayısını verir. 


Giriş ve Çıkış Birimleri 


CPC 464 40'den #9'a kadar onlu giriş-çıkışa sa- 
hiptir. #0'dan #7'ye kadar olan birimler ekrandan n 


51 


ader kumanda PRINT #n ekranda n adet bilgi verir. 
INPUT #n, emri ekranda (monitörde) (n) adet bilgi 
girişini gerektirir. 


:#8 Birimi Centronics-kesim yeri üzerinden yazı- 
cıyı uyarır.Bu birim ile sadece verileri belirtebilirsiniz. 
Şayet CPC 464 üzerinde yazıcı bağlı durumda değil ise 
bilgisayar yazıcı ikazını bekler ve ESC tuşuna iki kez 
basılması suretiyle kesilir. 


#9 Birimi kaset-teyp'i uyarır.Verileri girmek 
ya da okumak için,önce giriş ve çıkış verilerini açmak 
verileri INPUT#9 ya da PRINT£9 ile kaydetmeli ya 
da okumalı ve bunları müteakip verileri tekrar kapa- 
malısınız. 


Verilerin kaydedilmesi ya da okunması anında 
herhangi bir birim belirtilmemiş ise, CPC 464 tarafın- 
dan otomatik olarak #0 birimi kullanılır. 


2.3.3 Yapısal Programlama 


Bu arada son BASIC-programlayıcılarda Spaphet- 
ticode-programı olarak adlandırılan program tarzının 
daha zayıf olduğuna dikkat edilmiştir. CPC 464 yapı- 
iü programlamayı koruyan daha fazla özelliklere sa- 
iptir. 

Değişken isimlerinin muhtemel uzunlukları prog- 
ramlayıcıda, programın değişebilen büyüklükleri için 
onları ifade eden isimlerin kullanılmasını mümkün 
kılar. REM komutu yada '""işareti ile bazı bölümlerin 
fonksiyon dökümanlarını programınızın yorumlama sa- 
turlarına ilave edebilirsiniz, böylece bunlar haftalarca 
programınızda kalabilir. 


Program içersinde en az iki defa kullanılan 
program kesimleri, alt programlar olarak belirtilse, 
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görülebilir programlar elde edebilirsiniz. Diğer program 
kesimleri giriş ve çıkışlar halinde tek tek program 
bloklarında (GOTO-atlamaları olmaksızın) bölünebilir 
ve tasnif edilebilir. 


Pratikte, bilinen satır numara alanlarına belirli 
fonksiyonlar verilmiştir. Örnek olarak: 


I'dem 9'a kadar REM programlayıcı kopyalama v.b 
10'dan 99'a kadar Değişkelerin, renklerin belirtilmesi 
100'den 299'a kadar Program listeleri 
300'den 999'a kadar Program blokları(ana programlar) 
1000'den 9999'a kadar Alt programlar (Subroutinen) 
10000'den 59999'a kadar çapraşık alt programlar 
60000'den 65535'e kadar program bilgileri 


Bu şema tabii ki her şeyi açıklamaz, ama kendi 
bölümlerinin düzenini belirtir. 


2.3.4 Programda Hata Arama 


Tarafınızdan hazırlanan programların uzunluğu 
birkaç satırı geçtiğinde gayri ihtiyari hatalar oluşa- 
caktır. Programda hata oluştuğunda bu hatanın bir 
yazı hatası mı yoksa bir düşünce hatası mı olduğuna 
karar verilmelidir. 


Bilgisayar yanlış program satırını hata gösterge- 
si ile belirttiği için, yazı hatalarının bulunması pek 
zor olmaz. 


Düşünce hatalarının bulunması ise bunun aksine 
oldukça zordur. Hata arama işlemini kolaylaştırmak 
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için kritik yerlerdeki önemli değişken değerlerini sü- 
rülen PRINT-kumandası ile bastırabilirsiniz. Bu ölçü 
size daha fazla yardım edemiyorsa, programın doğru 
işlemesini engelleyen bazı bilgileri üretilen değer ve- 
rileriyle belirtiniz. 


"RUN başlangıç" (bütün değişkenleri siler) yada 
"GOTO başlangıç" (hiç bir değişkeni silmez) ve "Son 
ENDE" komutuyla "başlangıç" ve "son" satırları ara- 
sındaki programda hatayı kavrayabilirsiniz. Bu alan ne 
kadar küçükse, hatayı lokalize etmek okadar basit 
olur. 


Sonuç olarak programın beklediğimiz şekilde ça- 
lışıp çalışmadığını gösteren TRON ve TROFF komut- 
ları oluşurlar. 


Bu metodla hatayı bulamazsanız, Programı bel- 
leğe yüklemeniz ve birkaç gün sonra yeniden hata 
aramanız gerekir. Problem oldukça derin olarak ince- 
lendiğinden dolayı hataların sık sık ortaya çıkması 
normaldir. Diğer- bir imkân ise, BASIC-bilen bir ar- 
kadaşınızın bulunup bulunmayacağıdır. Problem yerinin 
açıklanması hatayı ortaya çıkarabilir. 


2.4. Grafik 


CPC 464'ün grafiği oldukça güçlü ve verimlidir. 
27 mevcut renkten 16 renge kadar aynı anda tanım- 
lanabilir. Size iki renk yeterli oluyorsa, 128.000 resim 
noktası belirtilebilir. 


CPC 464'de farklı birçok renk ve resim noktası-— 
nı hazırlayan üç ekran mod'u vardır. 


Mod 0 "çok renk modu" olarak tanımlanır. Her 
satır 20 işaret ve 160x200 resim noktası ile tarif 
edilir, bunun için aynı anda 16 değişik renk mümkün- 
dür. Mod | "standart mod"dur. Her satır 40 işaret ve 
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320x200 resim noktası ile gösterilir ve maximal dört 
değişik renk kullanılabilir. CPC 464'ün yüksek bölünen 
Modu ise Mod 2'dir. Her satır 80 işaret ve 640x200 
resim noktası ile tarif edilir ve sadece iki renk 
mümkündür. 


Birçok bölünme imkânları olmasına rağmen, 
BASIC-komutlarıyla noktaların verilmesi anında mod- 
lar arasında hiç bir fark yapılmamalıdır. 


Koordinatların ekran haricinde bulunması anında 
herhangi bir hata ikazı oluşmaz, bilâkis sadece nok- 
talar yerleştirilmez. Bu ekran çerçevesinde bulunan 
grafiklerin verilmesi için oldukça faydalıdır. 


2.4.1 Bölünme 


CPC 464 yüksek grafik bölünmesi mükemmel 
fonksiyon grafiklerinin ve boyutlu ifadelerin gerçek- 
leşmesini mümkün kılmaktadır. 


Matematiksel fonksiyonların teşkil edilmesi için 
ORIGIN-komutu kullanılır. Bu komutla grafik koordi- 
nat sisteminin sıfır noktası istenildiği gibi yerleştiri- 
rilebilir. Fonksiyon grafiğinin koordinat sıfır noktası- 
na bu sıfır noktasını yerleştirirseniz, fonksiyon nokta- 
sının relatif kayması hesaplanmaz, çünkü negatif de- 
gerlerde tarif edilebilir. 


Resim noktaları PLOT komutuyla yerleştirilebi- 
lir ve çizgiler DRAW-komutuyla çizilebilir. Elips ve 
çember çizimleri için CIRCLE komutu yoktur. Bölüm 
2.4.5'de bunu nasıl kumanda edebileceğiniz gösteril- 
miştir. 

Bazen yazı ve grafiğin aynı anda ekrana getiril - 
mesi gerekmektedir. 
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Bu durumda metin grafiğin üzerine yazılır yada 
metin ve grafik kesişirle.. Ayrca bu konuda 
CHR$(22) *# CHR$(1) komutuyla çalıştırılıp, 
CHR$(22) *# CHR$(0) komutu ile bitirilebilen transpa- 
rent modu vardır. 

Belki, CPC 464'ün yazılım sisteminin niçin 400 
dikey resim noktasını belirtip, bilgisayarın donanım 
sisteminin sütun başına 200 noktayı hazırladığını kendi 
kendinize sorarsınız. Bunu açıklamak için biraz daha 
incelemek gerekir: 


CPC 464 mod 0'dan toplam 32.000 resim 
noktasını tanımlar. Her resim noktası 16 renk alır ve 
dört Bit'le tam 16 durum tarif edilebildiği için bel- 
lekte 4 Bit'lik yer gerektirir. Her nokta 32.000 re- 
sim noktasından tam 4 Bit kaplarsa ekran belleği 
için toplam 128.000 Bit gerekir. 


CPC 464 mod 1'de toplam 64.000 resim nokta- 
sını tanımlar. Bu durumda resim noktaları 4 renk 
alırlar ve 2 Bit'lik yer kaplarlar. Böylece ekran bel- 
leği için 128.000 Bit'e gerek duyulur. 


Nihayet mod 2'de 128.000'lik bellek alanına ge- 
rek duyulur. 


Ekran belleği için her durumda 128.000 Bit'in 
kullanıldığını görüyorsunuz. Bu 128.000 Bit CPC 464'- 
ün video resmi için ayrılan üsı 16 KBayı'lık RAM 
belleğine uygun düşer. 


Şimdi böylece 400 resim noktasının durumu ko- 
layca açıklanabilir. CPC 464'ün grafiğinde sütun başı- 
na 200 değil bilakis 400 dikey resim noktası bulunur- 
sa her durumda 256.000 Bit kullanılacağından ekran 
belleği için iki kat fazla bellek alanı hazırlanmalıdır. 
Sonuç olarak programlayıcıya RAM bellekte 43,5 
KBayı değil aksine 27,5 KBayt ayrılmıştır. 


T 
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CPC 464'ün BASIC'i toplam 256.000 resim nok- 
tasını belirttiği için, yakın bir zamanda bilgisayarın 
çalışma belleği küçülmeksizin grafik bölümünü iki ka- 
tuna çıkartan iç RAM bellek genişletilmesi tavsiye 
edileceği beklenmelidir. 256.000 resim noktasının en 
yüksek bölünmesi kullanılıcıları mutlaka memnun 
edecektir! 


2.4.2 Renkler 


CPC 464'ün renkleri sayılarla kodlanmıştır. Bu 
sayılar renk değerleri olarak tanımlanırlar. 


PEN komutu ile yazı rengi, PAPER komutu ile 
arka plân rengi, BORDER komutu ile kenar rengi 
tespit edilebilir. Sadece BORDER komutunda renk 
değeri direkı verilebilir. Diğer komutlarda renk liste- 
si numaraları belirtilmelidir. 


CPC 464'ün grafik çözümü ne kadar yüksekse, 
renk listesi o kadar az kullanılır ve renkler ekranda 
aynı zamanda o kadar az belirtilebilir. Renk listesi 
içeriğinin değiştirilmesi ile özel renklerin birbirleriyle 
değişmesi mümkün olur. 


CPC 464'ün renkleri ve renk değerleri aşağıdaki 
gruplara ayrılır: 


Renkler: Kırmızı Renkler: Sarı Renkler: Yeşil RenXler: 
16 Gül rengi 25 Pastel sarısı (22 Paste! yeşili 
7 &rguvan rengi 24 Açık sarı 21 Limon yeşili 
6 Açık kırmızı o15 Turuncu 19 Deniz yeşili 
3 Kırmızı 12 Sarı 18 Açık yeşil 
9 Yeşil 
Firuze Renkler: (Mavi Renkler: Menekşe Renkleri: 


23 Pastel firuze (14 Pastel mavi 17 Pastel magenta 
20 Açık firuze 11 Gök mavisi 8 Açık magenta 
10 Firuze 2 Açık mavi 5 Açık menekşe 
1 Mavi 4 Magenta 
Renksizler: 26 Beyaz 
13 Gri 
0 Siyah 
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Ekranda kontrast oluşturmak için, her gruptan 
sadece bir renk kullanınız. 


Programlarınızın CPC 464'ün monokrom ekra- 
nında iyi bir optik etki bırakması gerekiyorsa yan- 
yana bulunan renklerin değerleri dörtten daha 
büyük olmalıdır. Renk değerleri büyüklüklerine göre 
renksiz monütörde artan bir parlaklık oluşturur ve 
iki komşu rengin renk değer farkı oldukça az ise, 
renkler seyreden kişi tarafından pek farkedilemez'er. 


Bir örnek: Renkli monütörde açık mavi (2) ve 
kırmızı (3) renkleri birbirinden farklı gözükmesine 
rağmen, renksiz monütörde bu iki rengin birbirinden 
farklı olduğu pek anlaşılmaz. 


Fakat mavi (1) ve açık kırmızı (6)'yı yada da- 
ha iyisi gök mavisi (11) ve kırmızı (3)'yı seçerseniz, 
renk değer farkı 5 ve 8 olduğu için renksiz monü- 
törde bu iki rengin farklı olduğu açıkça anlaşılabilir. 


2.4.3. Pencere 


Metnin ekranda belirtilmesi için CPC 464'ün 
önemli bir ekran penceresi vardır. 


Ekran penceresi, ekranın kullanıcı tarafından 
belirlenen ve aynı bağımsız bir ekran gibi çalışabilen 
bir alanıdır. Bu alanlarda programları listelemek ve 
çalıştırmak mümkündür. 


CPC 464 üzerinde sekiz değişik ve birbirinden 
bağımsız pencere WINDOW komutu ile belirtilebilir. 
(Böyle bir pencere tekniği yalnız CPC 464'ün iki 
katı pahalı bilgisayarlarda mevcuttur!) 


Birden çok ekran penceresi kullanırsanız, iki 
pencere tesadüfi yada belirli bir şekilde kesişirler. 
Bu durumda yeni penceredeki metin eski pencerede- 
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ki bilgileri siler. 


Ayrıca ekran pencerelerinde grafik kullanırsa- 
nız, PLOT ve DRAW komutlarının ekran penceresi 
tariflerini bertaraf ettiğini ve enine bir alan çizdi- 
ğini bilmelisiniz. 

Pozitif o koordinat değerleri kullanırsanız, 
ORIGIN-komutu ile grafik penceresini tarif etmeniz 
mümkündür. Meselâ ORIGIN 320,200 komutu ekranın 
sağ üst köşesinde bir grafik penceresi oluşur. 


2.4.4 Umlaute 


Bilindiği gibi CPC 464 Alman Umlauı'larına 
sahip değildir. Bunu SYMBOL komutu ile ortadan 
kaldırabilir ve umlaut işaretlerini tarif edebilirsiniz. 


Amaçlı bir şekilde, yazmaç tarafından aktif 
Alman cümlelerinde Umlaut olarak kabul edilip ba- 
sılan ASCII değerleri kullanınız. 


Aşağıdaki şekil her Umlaut için ASCII değerini 
göstermektedir. Yeni Umlaut'lar eski Umlaut'larla 
tuş takımı üzerinden çağrılabilmektedir: 


Â-9i- â-123-SHIFT | 
Ö- 91 ö-124-SHIFTG 
Ü- 93-) ü-125-SHIFT | 


8-126-CTRL 2 


Bu işaretleri tarif 'etmek için önce SYMBOL 
AFTER 9! komutu ile 91 değerinden sonraki ASCII 
işaretlerinin matrisleri değiştirilebilmeleri için RAM 
belleğe yüklenirler. 
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Aşağıdaki SYMBOL-komutları yeni işaretleri 
tarif eder: 


SYMBOL 91,102,24,60,102,102, 126, 102,0 
SYMBOL 92,102,60,102,102,102,102, 60,0 
SYMBOL 93,102,0,102,102,102,102,102,60,0 
SYMBOY 123,102,0,120,12,124,204,118,0 
SYMBOL 124,102,0,60,102,102,102, 60,0 
SYMBOL 125,102,0,102,102,102,102,62,0 
SYMBOL  126,60,102,102, 108,102, 102,124, 96 


Özel işaretlerin matrisleri, yeni işaretlerin 
mevcut işaret cümlelerine uyacağı şekilde seçilir. 
Bu durumda Umlaut'ların değişken isimlerinde 
kullanılmayacağı belirtilmelidir, zira bunlar ASCII- 
değerlerinden dolayı BASIC-yorumlayıcı tarafından 
özel işaretler olarak işlenebilirler. 


2.4.5 Örnekler 


Bu bölümde öğrenilen konularda pratik uygula- 
malar yapılacaktır. Aşağıdaki program ekranın orta- 
sına bir çember çizer: 


10 REM sxs Cember şşş 

20 MODE 2:CLEAR:DEG 

3O ORIGIN 320,200:M0VE 320,399 

40 FOR l1aufs0 TO 360 

50 DRAW 19914SIN(lauf),1998C0S(1auf) 
60 NEXT 1auf 


("'lauf" burada değişken yerine kullanılmıştır) 


Çarpma işlemini 50.satıra yükseltirseniz, çem- 
ber ekranın kenarlarına değer; her iki değeri küçül- 
türseniz, çember de küçülür. Şayet her iki çarpanı 
farklı değerde alırsanız, enteresan bir durum oluşur. 
Çarpanlar arasındaki fark ne kadar büyük olursa, 
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eğimi o kadar fazla olan bir elips oluşur. 


Aşağıdaki program tesadüfi şekillenen, bölünen 
bir elips oluşturur: 


10 REM sss Elipsler gss 

20 MODE 2:CLEAR:SDEFİINT a-z:3RANDOMIZE TIM 
E:DEG 

30 xaRND$640 

40 yaRND8400 

50 msRND$S304*50 

60 nsRND3S50*50 

70 IF x*m>639 OR ytn>399 OR x-m<O OR y-n 
<O THEN 30 

80 ORIGIN x,y 

90 MOVE O,n 

100 FOR laufsi TO 360 

110 DRAW masSIN(lauf) ,nsCOS(lauf) 

120 NEXT l1auf 

130 60TO 30 


30. ve 40. satırlarda Elips pozisyonunu belirle- 
yen koordinat başlangıç noktası oluşur. 50. ve 60 
satırlarda her iki çarpan 50'den 99'a kadar uzanan 
sayı alanından tesadüfi olarak seçilir. 


Satır 70, Elipsin tamamen ekran alanı içersin- 
de oluşup oluşmadığını kontrol eder, şayet durum 
doğru ise Elips belirtilir, aksi halde yeni rastgele 
sayılar verilir. 


CPC 464'ün Grafiği matematiksel fonksiyonları 
ifade etmeyi kolaylaştırır. Aşağıdaki Program bir 
Sinüs eğrisi çizmektedir: 


10 REM #s& Sinüs Eğrisi *** 
20 MODE 2:CLEAR:DEG 
3O ORIGIN O0,200:DRAW 639,0 
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40 FOR l1aufs0 TO 720 
50 DRAW 640$lauf/720,199$8SIN(lauf) 
60 NEXT l1auf 


ORIGIN komutu koordinat başlangıç noktasının 
yerleştirilmesi için oldukça gereklidir, zira hiç bir 
grafik değeri ekranın görülebilen alanına ulaşması 
için sıralanmamalıdır. Sinüs salınımının ikinci yarısı 
negatif koordinatlar ile hatasız bir şekilde belirtil 
mektedir. 


50. satırda değişken değeri iki tam sinüs salı- 
nımının ekranda oluşması için (720-2x360 derece) 
720'ye bölünmüştür ve toplam ekran genişliğinden 
istifade etmek için 540 ile çarpılmıştır. 


Bu satırlardan görüldüğü gibi problemin anla- 
şılmasında herhangi bir zorluk bulunmamaktadır. 


Son program örneği ekran penceresi ile ilgili- 
dir. Rastgele büyüklükteki tesadüfi bölünmüş ekran 
penceresi oluşur ve rastgele bir renk ile doldurulur: 


10 REM *** Ekran Penceresi *#* 

20 MODE O:DEFINT a-z:sRANDOMIZE TIME 
50 FOR pencere «0 TO 7 

40 azRND?20*1 

50 bsRND820*4*1 

60 csRNDB2541 


70 dsRNDS2541 
80 farbesRND?£26 


90 farbregister sRND31S5 

100 BORDER farbe 

110 WINDOW #pencere ,a,b,c,d 

120 PAPER #Pencere,farbregister 
150 CLS #fenster 

140 NEXT fenster 

150 GOTO 350 
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40'dan 90'a kadar devam eden satırlarda rast- 
gele değerler alınır ve 100 ile 130'uncu satırlarda bu 
değerler kaybedilir. Bu program kısmı bir FOR-NEXT 
döngüsü ile sona erer. Bu döngü bütün ekran pence- 
resinin sıfırdan 7'ye kadar tam bir kez tanımlanma- 
sını sağlar. Program döngüsünün tamamlanmasından, 
durum tekrar baştan başlar. 


Bu program ile yeni ekran pencerelerinin eski 
pencere üzerine yazdığını açıkça görebilirsiniz. 


2.5 Ses Jenaratörü 


CPC 464'ün ses jeneratörü el kitabında birkaç 
örnekle açıklanmıştır. Ses jeneratörünün kullanılması 
için programlayıcının üç komutu vardır (SOUND, ENV 
ve ENT). Bu komutlar bilgisayarda mevcuttur. 


Hesap yoluyla yaklaşık 2,5 x109* ses ve gürültü 
zinciri bu komutlarla üretilebilir. 


CPC 464'ün kullanım el kitabında ses jeneratö- 
rünün kullanılmasını sağlayan bu komutların anlamı 
ve uygulanması kısmen karmaşık olarak anlatılmıştır. 
Bundan dolayı bu bölümde ses jeneratörünün prog- 
ramlanma imkânları anlatılacaktır. 


2.5.1 Sesler ve Gürültüler 


CPC 464'ün ses jeneratöründe topları verebilen 
üç kanal ve gürültüleri verebilen bir kanal vardır. 


Tonlar, SOUND komutunun frekans bölücü pa- 
rametresinin sıfıra eşit olmayan bir değere yerleşti- 
rilmesi ile değişebilir. Gürültü SOUND-komutunun 
son parametresi olan "gürültü" ile kumanda edilir. 
Bu değer sıfıra eşit değilse, işitilebilen bütün fre- 
kansların karışmasından oluşan ve beyaz gürültü ola- 
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rak adlandırılan bir gürültü üretilir. 


Şayet frekans bölücü ve gürültü parametrele- 
rinin her ikisi de sıfırdan farklı bir değer alırlarsa, 
tonların ve gürültülerin aynı anda üretilmesi müm- 
kün olur. Ton üretimi için üç kanal bulunduğu için 
CPC 464'e stereo bir tertibat bağlanması halinde 
stereo efektlerde elde edilebilinir, meselâ çift tit- 
reşimli bir melodide ilk titreşim sol hoparlörden, 
ikinci titreşim sağ hoparlörden verilebilir yada bu- 
nun tam tersi de olabilir. 


Buna karşın gürültülerin verilmesi için yalnız 
bir kanal vardır ve gürültülerin stereo olarak veril- 
mesi de mümkün değildir. Meselâ hoparlörün birin- 
den tiz bir gürültü verilirken aynı zamanda diğer 
hoparlörden donuk bir gürültü verilemez. Gürültüle- 
rin sabit bir yönden yada her iki yönden de aynı 
anda verilmesi mümkündür. 


2.5.2 SOUND 


SOUND komutu ton verilmesi hususundaki en 
önemli kumanda işlemidir ve yedi parametreye ka- 
dar çalışabilir. 


Aşağıdaki şekil bazı parametreleri sıraya göre 
belirtmiş ve onların değer alanını parantez içersinde 
göstermiştir: 


Kanal durumu (O'dan 255'e kadar) 
Frekans bölümü o (0'dan 4095'e kadar) 

Süre (-32768'den 32767'ye kadar) 
Ses şiddeti (0'dan 15'e kadar) 

Ses şiddeti kılıf : il 

GTİ MAAS (0'dan 15'e kadar) 

Frekans kılıf X 
e e (O'dan 15'e kadar) 


Gürültüler (0'dan 31'e kadar) 
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Şimdi bu parametreleri biraz açıklamaya çalı- 
şalım: 


Kanal Durumu 


Kanal durumu değer alanı tam bir Bayt'tır. 
Bu Bayt'ın her Bit'inin özel anlamı vardır: 


0. Bit - SOUND sol kanal üzerine verme (1) 
1. Bit - SOUND orta kanal üzerine verme (2) 
2. Bit - SOUND sağ kanal üzerine verme (4) 
3.Bit - Sol kanal ile senkronize etme (8) 

4. Bit - Orta kanal ile senkronize etme (16) 
5. Bit - Sağ kanal ile senkronize etme (32) 
6. Bit - SOUND bekleme (64) 

7.Bit - SOUND derhal uygulama (128) 


Belirli bir fonksiyonu arzu ediyorsanız, kanal 
durumu değeri olarak parantez içindeki sayıyı (okul- 
lanmalısınız. Daha fazla fonksiyonu uygulamak iste- 
diğinizde uygun Bit'lerdeki değerleri toplayıp, 
kanal durumu değeri olarak vermeniz gerekir, me- 
selâ SOUND 135, SOUND'un üç kanal üzerinden 
verildiğini belirtir, yani 1351424444128. 


Kanal durumunu 6.Bit ile verirseniz, bekleme 
durumu RELEASE komutu ile kaldırılınca, SOUND 
uygulama durumuna yani çalışma durumuna gelir. 


Frekans Bölücü 


Bir Tonun frekansı 125.000 frekans bölücü 
tarafından bölünerek hesaplanması sonucunda veri- 
lir. Yani frekans bölücü verilmesi gereken tonun 
yüksekliğini belirler. 


Frekans bölücünün değeri O ile 4095 alanı 
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içersinde bulunduğundan dolayı 30,5 Hz'den 125 
kHz'ye kadarki frekansların verilmesi mümkündür 
(frekans bölücü sıfıra yerleştirilirse, herhangi bir 
ton işitilmez). 


Bu frekanslar size düşük geliyorsa aşağıdaki 
tabloya bakınız. Bu tablo size hangi yaşta hangi 
seslerin algılanabileceğini göstermektedir: 


20 yaş-16 Hzile 20 kHz arasındaki sesler. 
30 yaş-16 Hzile 16 kHz arasındaki sesler. 
45 yaş-16 Hzile 12 kHz arasındaki sesler. 
60 yaş-16Hzile 6 kHz arasındaki sesler. 


Gördüğünüz gibi yüksek tonların duyulması 
yaş durumunun artmasına bağımlı olarak düşmek- 
tedir. Müziğin en yüksek tonları bu değeri çok az 
ve çok seyrek bir şekilde aştığı için, 6 kHz'lık bu 
en yüksek işitme sınırı yeterlidir. Karakteristik tı— 
nı titreşimleri artık algılanamayacağından, enstru- 
manlar arasındaki fark da zor algılanacaktır. 


İnsanın dili çok değişik ve birbirini aşan fre- 
kansların bir karışımıdır. ve bu ikHz'den yüksek 
seslere ulaşamaz. 


Akustik konusundaki bu küçük açıklama ile 
frekansların önemi daha iyi anlaşılmaktadır. 


Süre 


"Süre" parametresi tonun yada gürültünün 
uzunluğunu belirler. Değer pozitif ise 1/100 yani 
yüzde bir saniye uzunluğunda verilir, değer negatif 
ise, ses şiddeti eğrisi pozitif değere uygun olarak 
sık sık tekrarlanır. 
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Ses Şiddeti 


"Ses şiddeti" parametresinin değeri ne kadar 
yüksekse, tonun ve gürültünün şiddeti de o kadar bü- 
yük olacaktır. 


Ses şiddeti kılıf eğrisi olmaksızın O ile 7 ara- 
sındaki değer alanı 8 ile 15 arasındaki alana uygun 
düşer. Ses şiddeti kılıf eğrisi ile oldukça hassas şe- 
kilde ayırdedilir, zira ses şiddeti karışımı için 16 de- 
ğer bulunmaktadır. 


Ses Şiddeti Kılıf Eğri Numarası 


Bu numara, SOUND komutu için hangi ENV du- 
rumunun geçerli olduğunu belirtir. 


Frekans Kılıf Numarası 


Bu numara, SOUND komutu için hangi ENT du- 
rumunun geçerli olduğunu belirtir. 


Gürültü 


SOUND komutunun son parametresi gürültünün 
yüksekliğini belirler. Değer ne kadar büyük olursa, 
gürültü o kadar donuk olur. Değer olarak sıfır: kay- 
dedilirse, hiç bir gürültü işitilmez. 


Parametrelerin bütünü için şunlar da söylenebi- 
lir. Bütün değerler tam sayı olmalıdır. Şayet tam sa- 
yı kaydetmezseniz, BASIC-Yorumlayıcı bu sayıyı en 
yakın tam sayıya yuvarlatır. Şayet değer sıfır olursa, 
herhangi bir şey belirtilmez. SOUND komutunun so- 
nunda bulunursa, atılabilir, yada ihtiyaden arka arka- 
ya iki virgül yerleştirilir. 
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2.5.3 ENV 
ENV komutu ses şiddeti kılıf eğrisini belirler. 
16 parametre kadar verilebilir. İlk parametre kılıf 
eğri numarasını belirler, diğer değerler üçlü gruplar 
halinde kılıf eğrisinin bazı kesimlerini teşkil ederler. 


Aşağıda parametrelerin ve değer alanlarının bir 
düzenlemesi görülmektedir: 


Kılıf eğri numarası (1'den 15'e kadar) 
1.Adım sayısı (0'dan 127'ye kadar) 
1.Adım büyüklüğü (-128'den 127'ye kadar) 
1.Adım zamanı (0'dan 255'e kadar) 


5.Adım sayısı (0'dan 127'ye kadar) 
5.Adım büyüklüğü (-128'den 127'ye kadar) 
5S.Adım zamanı (0'dan 255'e kadar) 


SOUND komutunun ses şiddeti büyük yada çok 
adımlarda 15 değerini kolayca aşabildiğinden dolayı, 
ses şiddeti - ses şiddeti MOD 16'dır, yani ses şiddeti 


16 ses şiddeti sıfıra uygundur. 
Bunun teorik bilgi kalmaması için, Resim 2.1, üç 


kılıf eğri kesiminden oluşan somut bir örnek göster- 
mektedir. 


İlk kılıf eğri kesimi 15 adımlık ses şiddetini 
4 yüzde bir saniyede en yüksek değerini yükseltir, 
fakar bunun için ilgili SOUND komutunun ses şid- 
ddeti parametresi sıfıra eşit olmalıdır. 
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1 
14 
ve 
pe) 
j 10 
m 8 
8 6 
4 
bi . 
0 l sün 
O 10 20 30 40 50 60 70 80 90 100 110120 130140 oosl 
ENV1, 15, 1, 4, 2 0, 50, 15, -1, 2 
ilk bölüm ikinci bölüm üçüncü bölüm 


Resim 2.1. Ses şiddeti kılıf eğrisi örneği 


(Değer sıfıra eşit değilse, ses şiddeti 15'i ge- 
çer ve tekrar sıfırdan başlar). 


İkinci kılıf eğri kesimi yarım saniyelik süre 
için ses şiddetini dengede tutar ve üçüncü kesim 15. 
adımdaki ses şiddetini yüzde iki (2/100) saniyede 
çıkış değerine yani sıfıra düşürür. 


ENV komutu ile tonun ses şiddetini periyodik 
olarak yükseltip alçaltan bir kılıf eğrisi teşkil eder- 
seniz, bu komutla CPC 464 üzerinde mükemmel tit- 
reşim (ses) efektleri üretebilirsiniz. 


2.5.4 ENT 


ENT komutu frekans kılıf eğrisini belirler. 16 
parametre kadar verilebilir. İlk parametre kılıf eğri 
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numarasını belirtir, diğer değerler üç grup halinde 
kılıf eğrisinin bazı kesimlerini teşkil ederler. 


Aşağıda parametrelerin ve değer alanlarının bir 
düzenlemesini göreceksiniz: 


Kılıf eğri numarası (-15'den 15'e kadar) 


Il. Adım sayısı (0'dan 239'a kadar) 
Il. Adım büyüklüğü (-128'den 127'ye kadar) 
I. Adım süresi (0'dan 255'e kadar) 


5. Adım sayısı (0'dan 239'a kadar) 
5. Adım büyüklüğü (-128'den 127'ye kadar) 
5. Adım süresi (0'dan 255'e kadar) 


Frekans kılıf eğrisinin kılıf eğri numarası ENT 
komutunda negatif bir ön işaret alabilir. Bu .ön işa- 
ret, SOUND komutu tonunun sona erinceye kadar kı- 
lıf eğrisinin ne kadar sık tekrarlandığını gösterir. Kı- 
lıf eğri numarası negatif bir ön işaret almazsa, CPC 
464 kılıf eğrisini sadece bir kez üretir. 
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Resim 2.2 Frekans kılıf eğrisi örneği 
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Pozitif adım genişliğinin tonu daha pes, negatif 
adım genişliğinin tonu daha tiz yaptığı bilinirse, ENT 
komutunun adım büyüklüğü boyutu oldukça basit an- 
laşılır. 


Bu bilgilerin daha açık anlaşılması için üç kılıf 
eğri kesiminden oluşan somut bir örnek resim 2.2'de 
görülmektedir. 


İlk kılıf eğri kesimi, ilgili SOUND komutunun 
frekans bölümünü 20.adıma yüzde iki saniyede yük- 
seltir. 


İkinci kılıf eğri kesimi, yarım saniyelik süre 
için frekans bölümünü dengede tutar, üçüncü kesim 
frekans bölümünü tekrar 20. adımdan yüzde dört sani- 
yede başlangıç değerine düşürür. 


Tonun frekansını periyodik olarak yükseltir ve 
alçaltırsanız, ENT komutu ile CPC 464 üzerinde siren 
efektleri elde edebilirsiniz. 


2.9.5 Stereo 


CPC 464'de sadece bir hoparlör vardır ve bun- 
dan dolayı tonlar mono olarak verilirler. Fakat bunun 
yanında stereo tonlar da üretilebilir. Stereo tertiba- 
unız varsa bunu bilgisayarınıza bağlayabilir (bakınız 
konu 1.6.4) ve stereo tonları işitebilirsiniz. 


Tonların ve gürültünün stereo olarak verilmesiy- 
le (gürültülerde sınırlama vardır, bakınız konu2.5.1) 
şaşırtıcı efektler elde edilebilinir. Çok tınılı şarkılar 
değişek hoparlörler üzerinden verilebilir, tonlar ve 
gürültüler akustik olarak hareketlendirilebilir. 


Bir ton yada bir gürültüyü gerçeğe mümkün 
olduğu kadar uygun bir şekilde soldan sağa doğru 
gezdirmek için, değişik kanallardan verme sırasında 
şu sıra takip edilmelidir: 
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1. Kanal 1 

2.Kanal I Kanal 2 

3.Kanal ! Kanal 3 
4.Kanal I Kanal 2 Kanal 3 
5. Kanal 1 Kanal 3 
6. Kanal 2 Kanal 3 
7 Kanal 3 


Böylece aynı yükselen ve alçalan ton yada gü- 
rültü efektleri oluşacaktır. 


Tabii ki sağdan sola doğru bir hareket 'de 
mümkündür. Yalnız düzenlemenin sırasını ters çevir— 
meniz gerekir. 


2.5.6 Uygulamalar 


Bu bölüm ses jenaratörü programlanması husu- 
sunda birkaç uygulama örneği sunmaktadır. 


CPC 464 üzerinde belirli oktav ve nota değerle- 
rinin müziksel tonlarını üretmek isterseniz, şu komut 
zincirini kullanacaksınız: 


125000/(32,7032 *2((ton -1)/12 * oktav -1)) 


Bu hesabın sonucu frekans bölücü olarak SOUND 
komutuna yerleştirilmelidir. 


"Oktav" değişkeni için, Kontra-Oktavdan hare- 
ket ederek arzu edilen oktavın numarası verilmelidir. 
"ton" değişkeni için oktav dahilindeki çalınması gere- 
ken yarım tonun numarası verilir. 


Tablo 2.1 CPC 464 üzerinde bu komut zinciri 
ile mümkün olan tüm oktav ve tonları göstermektedir. 
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Numara (o Oktav Ton 
1 Kontra oktav C 
2 Büyük oktav Cis 
3 Küçük oktav D 
4 Tek vuruşlu oktav Dis 
5 Çift vuruşlu oktav E 
6 Üç vuruşlu oktav F 
7 Dört vuruşlu oktav Fis 
8 Beş vuruşlu oktav G 
9 Altı vuruşlu oktav Gis 

10 Yedi vuruşlu oktav A 
11 Sekiz vuruşlu oktav Ais 
12 Dokuz vuruşlu oktav H 


Tablo 2.1 CPC 464 üzerindeki oktavlar ve tonlar 


Bildiğiniz gibi CPC 464'de ton verilmesi için üç 
değişik kanal vardır. Ton ve gürültü zincirlerinin 
SOUND komutları kanalların uygun döngü sırasına 
yüklenir ve mümkün olduğu kadar çabuk çalınır. 


Tonları ve gürültüleri sadece bir kanal üzerine 
verirseniz. SOUND komutları ardı ardına çalınırlar. 


Değişik kanalları kullanırsanız, SOUND komutla- 
rı bu kanallar üzerine paralel bağlanırlar. 


Bazen SOUND komutlarının ardı ardına değişik 
kanallara verilmesi arzu edilir. Bu durumda. diğer 
kanalların ton verme işlemi sona erdiyse birinci ka- 
nalın bekleme durumu yüklenir. 


Aşağıdaki döngü. "kanal" üzerine kaydetme iş- 
lemi sona erinceye kadar devam eder: 


WHILE SO(kanal) > 127: WEND 
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WHILE-WEND döngüsü her geçişte "kanal" dön- 
gü durumunun 7'nci Bit'inin yerleştirilip, yerleştiril- 
mediğini, yani "kanal" kanalının aktif olup olmadığını 
kontrol eder. Durum bu şekilde ise döngü tekrar ça- 
lışır, aksi halde ise döngü sona erer ve aşağıdaki 
SOUND komutu bir sonraki kanalın döngü durumunu 
ton verme işlemi için yükleyebilir. 


Aşağıda, bir roketin hareketi sırasındaki gürültü 
imkânlarından küçük bir bölümü görülmektedir. 


10 REM ##* Roketler Havalandı **#* 
20 FOR laufs3i1 TO 1 STEP -1 

39 SOUND 2,0,n, (1auf-2)/4,, ,lauf 
40 NEXT L1auf 

50 60TO 10 


Bu program örneğinin döngüsü tek kanatlı iki 
sineğe benzemektedir: Verilen gürültü, "lauf" değiş- 
keninin yükseltilmesi sırasında, uzaklaşan raketin 
efekt'ini verebilmek için pes fakat aynı zamanda 
yüksek olur. 


“nn değişkeni için 50 değerini yerleştirirseniz, 
büyük bir roketin hareket ettiğini, n-5 değerinde ise 
küçük bir roketin hareket ettiğini anlarsınız. 


Bu örnek programın gürültüsü orta kanal üze- 
rinden verildiği ve böylece bazı "gürültüleri" bozma- 
diği için, WHILE-WEND döngüsünden vazgeçilebilinir. 


CPC: 464'ün stereo efekt'li ses ve gürültü ola- 
nakları hususundaki diğer örnekleri ve tafsilâtlı açık- 
lamaları bölüm 3'de gösterge programında bulabilir— 
siniz. 
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2.6 Kesilmeler 


Bölüm 1.2'den bildiğiniz gibi, CPC 464'ün mikro 
işleyicisinin üç değişik kesilme imkânı bulunmaktadır. 
Peki bu kesilme nedir? Doğru bir şekilde belirtilirse 
kesilme, mikro işleyicinin şu andaki işlevinin dona- 
nımsal yada yazılımsal olarak kesilmesidir. Genel 
olarak ifade edilirse kesilme, şu andaki program bö- 
lümünün işlevinin kesilmesi ve yeni bir program kesi- 
mine atlamasıdır. 


Z-80-CPU'da üç mükemmel kesilme imkânı bu- 
lunmaktadır. CPC 464 Z-80-CPU ile bellenim siste- 
mindeki gerçekleri gözönünde bulundurur. Basit BASIC 
komutlarıyla verimli kesilme işlemi imkânları elde 
edilebilir. 


"ON SO (kanal) GOSUB satır" komutu güzel bir 
örnektir. Bu komutu program bloğunun başına yerleş- 
tirirseniz, (kanal) Kanalının baş ton bekleme döngü- 
sünde bu bloğun işlevi ani olarak kesilir ve "satır" 
satırından itibaren alt program çağrılır. ("kanal ve 
satır" birer değişken isimleridir). Alt programda 
bekleme döngü sırası tekrar doldurulur ve normal bir 
RETURN komutuyla program bloğunun terkedilen ye- 
rine geri atlanır. 


Bu durum, CPC 464 kesilme anında otomatik- 
man kesimin yapıldığı noktaya geri atladığı için 
mümkün olabilmektedir. 


Diğer kesilme imkânları AFTER, EVERY ve 
REMAIN komutlarıyla yapılabilmektedir. 


AFTER zaman, timer COSUB satır komutu 
"timer" zamanlayıcıyı "zaman" değeri ile yükler ve 
zamanlayıcıyı çalıştırır. 


"zaman" süresi "timer" zamanlayıcı üzerine ve- 
rilirse, "satır" program satırından itibaren alt prog- 
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ram çağrılmış olur. 


"EVERY zaman, timer GOSUB satır" komutu 
"timer" zamanlayıcı "zaman" değeriyle yükler ve za- 
manlayıcıyı çalıştırır. "timer" zamanlayıcının süresi— 
nin dolduğu her defasında alt program "satır" satı— 
rından itibaren çağrılır ve aynı zamanda bu komutun 
yürütülmesi yeniden başlar. 


Her iki komutta da alt program normal bir 
RETURN komutuyla sona erdirilir ve ana programın 
terkedilen yerine geri atlanır. "REMAIN timer" ko- 
mutuyla "timer" zamanlayıcının geri kalan süresi so- 
ruşturulur ve aynı zamanda "timer" zamanlayıcı sıfıra 
geri yerleştirilir. Böylece zamanlayicı basit olarak 
kesilebilir. 


Daha fazla zamanlayıcının aynı anda bir prog- 
ram kesimini ve alt programı çağırması da mümkün- 
dür. Şayet her kesilme diğer bir alt programı çağır— 
mak isterse, CPC 464 zorlanacaktır. Bundan dolayı 
zamanlayıcı belirli bir önceliğe göre düzenlenmiştir. 
Üçüncü zamanlayıcının yüksek öncelik hakkı vardır ve 
diğer zamanlayıcılardan önce çağrılması gereken alt 
programı belirler. Zamanlayıcı sıfır'ın en düşük ön- 
celiği vardır ve bütün diğer zamanlayıcılar ileridirler. 


2.7 Çalışma Sistemi 


Bir bilgisayarın çalışma sistemi cihazın, çevre- 
nin kullanıcının kayıt yönetimleri ile ilgilidir. 


Aşağıdaki bölümde kullanıcı bilgilerinin özel yö- 
netimi anlatılmıştır. Hangi bilgilerin CPC 464'ün ça- 
lışma belleğinin neresine yüklenebileceğini araştırınız. 
Bunun için verilen bilgilerin bellek örnekleri ve şekil- 
leri açıklanmıştır. 


Son bölüm, okunmayan programlardan kurtulmak 
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2.7.1 Bellek Bölümleri 


CPC 464'de 32 KBayı ROM ve 64 KBayı RAM 
bellek vardır. Bölüm |'den de bildiğiniz gibi Z-80-CPU 
sadece 64 Kbayı bellek adresleyebilmektedir. CPC 
464'ün konstirüktörleri RAM belleğe paralel olarak 
ROM belleği yerleştirerek bu problemi çözmüştür. 
ROM belleğin alt 16 KBayı'ı RAM belleğin alı 16 
KBayt'ına paralel, ROM belleğin üst 16 KBayı'ı da 
RAM belleğin üst 16 KBayı'ına paraleldir. Resim 2.3 
bu bölünmeyi açıklamaktadır. 


0KB 0 KB 


16KB 16 KB 


32KB 


48 KB 


ajalala 
e) 
un 

8 

A 

© 





64 KB 64 KB 
Resim 2.3 CPC 464'deki ROM ve RAM 
Belleklerin Bölümleri 


Z-80-CPU'nun kendi belleği ile karışmaması 
için, muhtelif RST-programları ROM ve RAM bunu 
kavrayabilmek için aktif yada pasif hale dönüşürler. 
Bu RST programları (yordamları), CPC 464'ün belle- 
nim sistemine göz atmak için, Asamble uzmanları ta- 
rafından kullanılır. BASIC-programlayıcı, PEEK ve 
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POKE komutları ile CPC 464'ün ROM belleğini kav- 
rayamadığından, bu imkânlara kapalı kalmaktadır. 


RAM bellekte ise buna karşın istenildiği kadar 
PEEK ve POKE komutu kullanılabilinir. Tablo 2.2, 
RAM bellekte çalışma sisteminin hangi bilgilerinin 
nerede depolandığını açıkça ve teferruatlı olarak gös- 








termektedir. 

Adresler İçeriği 

0-63 arası Kesilme ve bellek yönetimi için RST yordamı 
(Aynı isimli ROM-adreslerin kopya edilmesi) 

64-321 arası Uygulama vuruşu (üç sıfırla sona eren şu an- 
daki komut yada program satırını kapsar. 

322-367 Sıfır 

368 BASIC-programının başlaması 


368'denn'ye kadar 


I2s1'de... 


...43903'e kadar 


43903 
43904-43911 
43912-43919 
43929-43927 
43928-43935 
43936-43943 
43944-43951 
43952-43959 
43960-43967 
43968-43975 
43976-43983 
43984-43991 
43992-43999 
44000-44007 
44008-44015 
44016-44023 
44024-44031 


44032-44195 
44196—44450 


Üç sıfırla sona eren BASIC programı 
Değişken tablo başlangıcı 

Dizi belleği (ilk kaydedilen diziler başta 
bulunurlar) 

Dizi belleği sonu ve maximal HIMEN-değeri 
240 ASCII işaretinin nokta matrisi 

241 ” " " " 

242 ” ” " ” 

243 " " " " 

244 " '" " " 

245 " " " " 

246 " “ " ” 

247 " ”" " " 

248 " " LU ”" 


25 5 " ğ ” '" " 


Çalışma sistemi bilgileri 
Kaydetme vuruşu (tek sıfırla sona eren 
şu anda kaydedilen ASCIl-işaretlerini kap- 
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44451-49151 
44592-44593 


44667-44668 
44669 ,44670 
44673 ,44674 


44675,44676 
44677 ,44678 
45197,45198 
45199,45200 
47360-47393 
47872-48441 
48589-48627 
49152-65535 
49152-51151 
51200-53199 
53248-55247 
55296-57295 
57344-59343 
5Y392-613Y1 
61440-63439 
63488-65487 


sar. 

Çalışma sistemi bilgileri 
Puantör, BASIC-program (başlangıcı -1'i 
gösterir. 

Hali hazırdaki HIMEM-değeri 

Maximal HIMEM-değeri 

BASIC-program başlangıcı -1'i (gösteren 
puantör 

Değişken tablo başlangıcını gösteren puantör 
Değişken tablo başlangıcını gösteren puantör 
Dizi belleği başlangıcını gösteren puantör 

Dizi belleği başlangıcını gösteren puantör 
ROM-yordamları için giriş adresleri 
ROM-yordamları için giriş adresleri 
ROM-yordamları için giriş adresleri 

Ekran belleği 

ekran bildirim pozisyonunun 


satırı 
" 


Şi 
2. 
3. 
4. 
" " '" 5. " 
6. 
7. 
8. 





Tablo 2.2 CPC 464'ün RAM-Bellek terminalleri 


2.7.2 Bilgilerin Belleğe Kaydedilmesi 


256'dan küçük sayıların kaydedilmesi zor de- 
ğildir, çünkü bu bir POKE-komutuyla mümkündür. 


Fakat bazen bir adresi RAM belleğe kaydet- 
mek gerekli olabiliyor, meselâ göstergeyi değiştir— 
mek için. Bir adres 65535'e kadar bir değer taşıya- 
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bildiği için, bu adres iki bellek satırına yerleştiril- 
melidir. Bir adresten iki POKE-değerine nasıl ulaşa- 
biliriz? 

İlk bellek satırına daima adresin LSB'si (en 
düşük Bayt'ı) POKE edilmeli ve ikinci bellek satırı- 
na da adresin MSB'si (en büyük Bayt'ı yüklenmeli- 
dir. Bunun için aşağıdaki hesaplamayı kullanınız: 


MSB - INT (Adresse/256) 
LSB > Adresse —- MSB * 256 


Bu operasyonun her iki sonucu uygun bellek 
yerlerine POKE edilmelidir-tamam'! 


2.7.3 ROM-Programları (Yordamları) 


Bölüm 2.7.1'de gördüğünüz gibi, RAM bellekte 
ROM-programları için özel giriş adresleri vardır. 
Tablo 2.3, CPC 464'ün el kitabında uzman olmayan 
programlayıcılar için de, herhangi bir parametre ve- 
rilmesi gerekmediği ve programların CALL komutu 
ile çağrılabildiği için, tamamen problemsiz bazı ad- 
resleri göstermektedir. 


CPC 464'ün çalışma sistemi bu adresleri bizzat 
kendisi kullanmaz. Bu adreslerin herhangi birine ih- 
tiyacınız yoksa, bu yerlere kendi özel RAM-prog- 
ramlarınızı sıralamak ve CALL komutu ile atlamak 
suretiyle, bu bellek alanından istifade edebilirsiniz. 


2.7.4 Ekran Belleği 


CPC 464'ün ekran belleği RAM belleğin üst 
16 KByı'lık bölümünü kapsar. Aşağıdaki küçük prog- 
ram ekranı renk listesinden "bir" rengi ile doldurur. 
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Adresler 


0) 
47878 


47896 


47941 


47944 


47947 
47956 


47959 


47980 
48028 
48091 
48148 
48238 
48341 
48307 
48310 
48313 
48409 
48439 


Fonksiyonlar 


RESET 

Bir işaretin kaydedilmesini bekler (SHIFT 
yada CRTL değildir) 

Bir işaretin kaydedilmesini bekler (SHIFT 
yada CRTL değildir) 

BREAK komutunu otomatikman RESET 
komutu izler (CLEAR ve INPUT komutları 
bu programı kaldırırlar) 

BREAK komutunu önler (CLEAR ve INPUT 
komutları bu programı kaldırırlar) 

ESC tuşuna bir kez basma 

Ekranın boşaltılması (sadece çalışan prog- 
ramda kullanılabilir) 

Ekranın kapatılması (sadece çalışan prog- 
ramda kullanılır) 

BASIC-komutu CLS 

BASIC-komutu PRINT CHR$(24) 
BASIC-komutu CLG 

PAPERO:CLS komut zinciri. 

Kaset-teyp motorunu çalıştırır. 
Kaset-teyp motorunu durdurur. 

Ton'un bırakılması 

Halihazırdaki tonu durdurur 

Halihazırdaki tonu çalıştırır 

Resmin tam olarak teşekkülünü bekler 
Giriş adres bloğu 47872-48441'i restore 
eder 





Tablo 2.3 ROM-programları için giriş adresleri 
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10 FOR satırsI TO 8 

20 ilavesilave #2048 

30 FOR laufs471044ilave TO 49103silave 
40 POKE lauyf,255 

50 next lauf 

60 NEXT satır 


(satır, ilâve, lauf" terimlerinin herbiri bir de- 
ğişkendir) 

Bu örnekten, ekran belleğine POKE edilmenin 
ne kadar karmaşık olduğunu görmektesiniz. CPC 464'ün 
kendilerine ASCIl-işaretleri verilen, 2000 ekran po- 
zisyonu vardır. Bilgisayarın işaretleri 8x8'lik nokta 
matrisinden oluştuğu için, her ekran veri pozisyonu 
sekiz satırdan ve her satırda yine sekiz noktadan 
oluşmuştur. 


Ekran pozisyonunun satırları CPC 464'ün ekran 
belleğinde bir bayı (Byte) ile belirtilir. Bir ekran 
pozisyonunun satırları bellek içersinde birbiri arkası- 
nı takip ederek sıralanmazlar, aksine bütün ekran 
kayıt pozisyonunun bir satırı 2000 Bayt'lık blokta; 
ekran belleğinin ilk bloğu bütün ekran pozisyonları- 
nın ilk satırını ve ikinci blokta bütün kayıt pozis- 
yonlarının ikinci ekran satırını kapsayacak şekilde 
toplanır. 


Şekil 2.4 ekranın sol üst köşesi için, ekran 
belleğinin hangi bellek satırlarının hangi ekran sa- 
tırları ile ilgili olduğunu göstermektedir. Bu şema 
diğer ekran pozisyonları için uygun biçimde geniş- 
letilebilir. 


CPC 464'deki her satır için bellek alanında 
tam bir Bayı'lık alan bulunduğu için, her ekran sa- 
urı için bilgilerin sadece belirli bir bölümü yüklene- 
bilir. Bilgisayarın ekran modu, bir satırın kaç resim 
noktasının birbirinden bağımsız olarak birleşebileceğini 
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ve bu noktalar için kaç rengin mümkün olduğunu 
belirtir. Bir resim noktasının rengi yada resim nok- 
taları grubunun rengi renk listesi ile tespit edilir. 
Bu listenin numaraları bir ikili sayının desimal (onda- 
lık) değeri ile belirtilir ve bu ikili değerin rakamları uy gun 
resim noktalarının bazı Bit'lerinden oluşur. 


Bu sistem yüksek dağılan Mod 2'de daha basit 
gözlenebilir: 











| 53248 | 53249 | 
| 55296 | 55297 | 55298 | 55299 | 
57345 

| s9393 | 59394 | 59395 | 






| 55377 | 55378 | 55379 

55376 55377 5537 

57425 57426 57427 
59472 59473 59475 

| 61520 | 61521 | | 61523 | 


| 61522 | 
63568 | 63569 | 63570 | 63571 | 
Resim 2.4 Ekran satırları için bellek satırları 
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Aşağıdaki nok- MODUS2: 


e aşağınaki Bİ 
ta grupları ay- lo7 |os|os|04f 03 Jo2|o1 |vo| a Krea 


rı ayrı seçile- belirtilir. 


in m K 





MODUS 1: 


lez | os) os) v4 os|oz) nı | pe) 


BIT O und 4 


NN: 
BIT 1 und $ |, (es; 0 of DI 0S 
BT2und6 | |06| (| (pa) | o206 
BIT 3 und7 07) ooo (o) O | D3 D7 


MODUS 0: 


97 /bs| os) 04) pa | 02) or İvo| 


BIT 0,2,4 und 6 | Joe) Jo4) Joe) | DO| DOD2D4D6 
BT 1,3,5 und7 7) |os, İos) Jo) | DI 030507 


Resim 2.5 Ekran satır baytının bir bitinin fonksiyonu 
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Bir ekran satırının her resim noktası direkt 
olarak ilgili satır Bayt (çoklu)'ının bir Bit (ikil)'i 
ile belirtilir. Resim noktasının rengi uygun ikilinin 
(Bit'in) durumu ile tespit edilir. Şayet Bit bire yer- 
leştirilmiş ise resim noktası renk listesinde "bir" 
rengini alacaktır. Bit sıfıra geri yerleştirilirse, re- 
sim noktası renklistesinden "sıfır" rengini alacaktır. 


Diğer her iki Mod'da metod oldukça karmaşıktır: 


Standart Mod 1 dört rengin ifadesini verebil- 
mektedir, fakat iki sabit resim noktası aynı zaman- 
da bir renk ile bağlanabilir. Bu her iki noktanın 
rengi renk listesi ile tespit edilmiştir. Bu renk Jis- 
tesinin numaraları iki resim noktası için her iki 
Bit'in binear (ikil) değerinden teşkil edilmiştir. 


Çok renk modu "0O"da dört resim noktasının 
rengi aynı zamanda 16 renk ile belirtilmelidir. Bu 
resim nokta gruplarının rengi, numaraları uygun Bit'- 
lerden oluşan renk listesi ile sabittir. 


Bu sistemin anlaşılmasını kolaylaştırmak için 
resim 2.5, ekran satır Bayt'ının hangi Bitlerinin 
hangi mod'da yerleştiri'ebileceğini ve resim listesi 
numaralarının bu Bit'erden nasıl oluştuğunu göster- 
mektedir. 


Gördüğünüz g'b: her Bit değişik mod'larda farkii 
fonksiyonlara salı'ntr. Bu metod size bazı zorluklar 


çıkarıyorsa, bu hususta birkaç deneme yapmanız ge- 
rekecektir. 


i Ekran belleğine amaçsız bir şekilde POKE ve- 
rilmesi anında CPC 464'de bir değişiklik ölmaz, bu- 
nun için endişe etmeye gerek yoktur. Fakat ekran 
satır blokunu takip eden 48 boş Bayı'a değer kay- 
dedilmemelidir. Bu durumda bilgiler ekran üzerinde 
kısmen belirirler ve orada herhangi bir şeyi değiş- 
tirirseniz, ekranda karmaşıklık ortaya çıkar. 


85 


2.7.5 BASIC-Program Satırlarının Şekli 


Bilgisayarın çalışma belleğindeki program sa- 
turlarının ardarda sıralanması program metni olarak 
tanımlanır. 


Program metnindeki bir BASIC-satırının şekli 
aşağıdaki gibi görülür: 

1. Bayt n satır uzunluğunun LSB'si 

2. Bayt n satır uzunluğunun MSB'si 

3. Bayt satır numarasının LSB'si 

4. Bayı satır numarasının MSB'si 

5. Bayt BASIC-kodları veya değişkenleri 

6. Bayı BASIC-kodları, değişkenleri, metin vs. 

(opsiyonel) 


n-1. Bayı BASIC-kodları, değişkenler, metin 
vs. (opsiyonel) 
n. Bayı satır sonu için O sayısı 


Bu satır bir programın başında bulunuyorsa, bu 


satır 368.bellek satırında ilk Bayt'ta çalışmaya 
başlar. 


Bu satırda programın sonu sözkonusu ise, nsl, 
n*2 ve n*3 bellek satırında program üç sıfırda sona 
erer. 


Program satırın ortasındaki opsiyonel olarak 
işaretlenen baytlar, satır özel bir BASIC-kodundan 
daha fazla içerdiği zaman yalnızca bellekte görünürler. 


2.7.6 BASIC-Kodları 


Son bölümde BASIC-kodlarından bahsedilmekte-— 
dir. Birçok okuyucu da BASIC-kodunun ne olduğu 
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sorusu oluşacaktır. 


Şayet bir BASIC-komutu program metninde 
harf harf kaydedilirse, oldukça fazla yer kaplayacak, 
bu kaydedilen harfler değişken isimleriyle karışabi- 
lecek ve komutun yorumlayıcı tarafından algılanma- 
sında büyük zâman kaybı oluşacaktır. O halde bu 
yöntem birçok sebepten dolayı uygun değildir. 


Çoğu o bilgisayarlar her BASIC-komutuna, 
bir yada iki Bayt'tan oluşan sabit Kod numaraları 
düzenlemişlerdir. 


Bu yöntem hem bellek alanından, hem de za- 
mandan istifade etmektedir. Ayrıca komutların 
program metnindeki değişkenlerle karışmasını da ön- 
lemektedir. 


CPC 464'ün BASIC-komut kod numaraları nor- 
mal komutlarda 7 Bit'e yerleştirilmiş bir Bayt'tan, 
fonksiyon komutlarında ise 225 değerli bir Bayı'tan 
oluşmaktadır. 


Tablo 2.4 CPC 464'ün bütün BASIC-komurları- 
nın kod numaralarını göstermektedir. 








BASIC- — BASIC- BASIC- — BASIC- BASIC- (o BASIC- 
Token x Befehi Token Befehi Token Befehi 
255* O ABS 2554 16 LOGI10 2554 66 HIMEM 
2554 1 ASC 2554 17 LOWERS 2554 67 INKEYS 
2554 2 ATN 2554 18 PEEK 2554 68 Pİ 
255t 3 CHRS 2554 19 REMAIN 2554 69 RND 
2554 4 CINT 2554 20 SGN 2554 70 TIME 
255* $ COS 2554 21 SIN 2554 71 XPOS 
255» 6 CREAL 2554 22 SPACES 2554 72 YPOS 
2554 7 EXP 2554 23 SO 2554113 BINS 
255* 8 FX 2554 24 SOR 2554114 DECS 
255-4 9 FRE 2554 25 STRS 2554115 HEXS 
255* 10 IMKEY 2554 26 TAN 2554116 INSTR 
254 11 INP 255$ 27 UNT 2554117 LEFTS 
2554 12 INT 2554 28 UPPER$ 2554118 MAX 
2554 13 JOY 2554 29 VAL 2554119 MIN 
2554 14 LEN 2554 64 EOF 2554120 POS 
2554 15 LOG 2554- 65 ERR 2554121 RIGHTS 


152 
153 
154 
155 
156 
157 
158 
159 
159 
160 
161 
162 
163 
164 
16$ 
166 
167 


BASIC- 
Befehi 


ROUND 
STRINGS 
TEST 
TESTR 
VPOS 
AFTER 
AUTO 
BORDER 
CALL 
CAT 
CHAIN 
CLEAR 
CLG 
CLOSEIN 
CLOSEOUT 
CLS 
CONT 
DATA 
DEF 
DEFINT 
DEFREAL 
DEFSTR 
DEG 
DELETE 
DIM 
DRAW 
DRAWR 
EDIT 
ELSE 
END 
ENT 

ENV 
ERASE 
ERROR 
EVERY 
FOR 

FOR 
GOSUB 
GOTO 
IF 
INK 
INPUT 
KEY 
LET 
LINE 
LIST 


BASIC- 
Token 


168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 


181 
182 


183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
19$ 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
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BASIC- BASIC- o BASIC- 
Befehi Token Befehi 
LOAD 213 WEND 
LOCATE 214 While 
MEMORY 215 WIDTH 
MERGE 216 WINDOW 
MID$ 217 WRITE 
MODE 218 ZONE 
MOVE DI 
MOVER 220 El 
NEXT 227 ERL 
NEW 228 FN 
ON 229 SPC 
ON BREAK 230 STEP 
ON ERROR 231 SWAP 
GOTO 0 235 TAB 
ON S0 235 THEN 
OPENIN 36 TO 
OPENOUT 237 USING 
ORIGIN 28 > 
OUT 9 - 
PAPER 20 >- 
PEN 1 < 
PLOT 42 <> 
PLOTR 43 <- 
POKE M4 $ 
PRINT 245 — 
(REM) 6 , 

RAD 247 
RANDOMİZE 18 

READ 2 
RELEASE 250 AND 
REM 2SI MOD 
RENUM 253 OR 
RESTORE 153 XOR 
RESUME 254 NOT 
RETURN 255* n siehe 
RUN oben! 
SAVE 

SOUND, 
SPEED 4» tioken:Kodları 
STOP Befehi:zKomutları 
SYMBOL 

TAG anlamına gelmek 
TAGOFF tedir.) 

TROFF 

TRON 

WAT 


— —— — 
Tablo 2.4 BASIC komutlarının kod numaraları 
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2.7.7 BASIC-Değişkenlerinin Şekli 


Değişkenler program metninde görüldüklerinde, 
BASIC-kodları veya diğer bir metinle karışmaması 
için, ayrı şekilleri vardır. 


Değişkenlerde üç farklı tip olduğundan dolayı, 
birbirlerinden çok az farklı üç şekil mevcuttur. 


Reel değişkenler şu şekilde yüklenirler: 

13, değişken ismin uzunluğu * 4,0, harf...harf #128 
İnteger değişkenler aşağıdaki gibi görünürler: 

2, değişken ismin uzunluğu *4,0, harf...harf * 128 

Dizi değişkenlerinin şekli ise şöyledir: 


3. değişken ismin uzunluğu * 4,0, harf...harf * 128 


Gördüğünüz gibi, her üç şeklin ilk Bayt'ı de- 
ğişkenin tipini belirtmekte ve değişken ismin son 
harfi 7 Bit'e yerleştirmekle yüklenir (ASCII-değeri 
128'e yükseltilir). 


Şayet değişkenlere değerleri programın çalış- 
tğı anda verilirse, bu değerler program metnine 
yüklenemezler, aksine özel bir değişken tablosuna 
yerleştirilmelidirler. 


Tablo 2.5 değişken tablosundaki değişik değiş- 
ken tiplerinin şekillerini göstermektedir. 


Bu dizi değişkeni metni değişken tablosunda 
değil, bilâkis dizi belleğinde gösterilmektedir. Değiş- 
ken 'tablosundaki adres, değişken metnin dizi belle- 
ğinde hangi bellek satırından itibaren başladığını 
belirtmektedir. 
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Reel değişkenler integer değişkenler Oo Dizi değişkenler 


0) 0) 0 
0) 0 0) 
Değişken ismin ilk (Değişken ismin ilk (Değişken ismin ilk 


büyük harfi büyük harfi büyük harfi 


Değişken ismin son Değişken ismin son Değişken ismin son 
büyük harfi *128 (| büyük harfi #128 büyük harfi 4128 
4 1 2 


Mantis Sayı değerinin LSB'si Metin uzunluğu 
Mantis Sayı değerinin MSB'si Adresin LSB'si 
Mantis 0) Adresin MSB'si 
Mantis - 0) 

Üstel fonksiyon - - 

0 5 — 


yn Tablo 2.5 Değişken tablosundaki 


değişken tiplerinin şekilleri 


2.7.8 Okunamayan Programların Okunması 


CPC 464 genel BASIC-komutu VERIFY'ye sahip 
olmadığından ve böylece SAVE edilen programın de- 
nenmesi mümkün olmadığından, bilgisayarınız bir 
programı okumayabilir. 


Şayet bir emniyet kopyası hazırlamışsanız bu 
o kadar önemli olmayacaktır. Okunamayan program- 
larda bir kopyanın bulunması sözkonusu olduğundan, 
bu programa yatırdığınız iş yada para ekseriyetle 
kaybolacaktır. 


Okuma hatasında CPC 464'ün bir suçu yoktur, 
aksine müzik kaydederken düşmeyen kasetin (dropout) 
hatalı bant yeri bilgi yükleme ve kaydetme esnasın- 
da önemli bilgi boşluklarına sebep olmaktadır. 
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(Programın yeniden yüklenmesi sırasında aynı 
yerde bir okuma hatası oluşursa, drop-out yani 
banı'taki hatalı yeri anlayabilirsiniz. Daha fazla 
drop-out'lu kasetleri sadece müzik kaydı için kulla- 
nınız!) 


Bilgisayarınız artık program yüklemek istemez- 
se ve bilgiler kaybolursa ne yapabilirsiniz? 


Bunun için de, bütün programın bir bölümünü 
kurtarabileceğiniz bir metod vardır: Bilgisayarınızı 
kapatınız ve tekrar açınız. Okunamayan programı 
yükleyiniz. Şayet "Load error b" oluştuysa şansınız 
var demektir, CPC 464 okuma hatası bulunmasına 
rağmen komple programı çalışma belleğine yükler. 
"Loard error a" durumunda ise bilgisayar programı 
sadece hatalı yere kadar yükler, devamını yüklemez. 
Birçok denemeden sonra "Load error b" durumu ya- 
kalanabilir. 


Bu durumda bellekte bütün program yada prog- 
ramın bir bölümü bulunur ama onu listeleyemezsiniz. 
Bu durum CPC 464'ün BASIC-Program alanının ilk 
iki bellek satırını (368 ve 369) sıfıra yerleştirdiğin- 
den kaynaklanmaktadır. BASIC-program alanının bu 
her iki yeri BASIC-programının ilk satırının satır 
uzunluğunu gösterir. Bu satırlar sıfırda bulunuyorsa 
programın ilk satırının uzunluğunun sıfır olduğu ve 
bunu müteakip satırların mevcut olduğu anlaşılır. 
BASIC-yorumlayıcı UST-komutunun verilmesinde bu 
işareti görür ve programın bittiğini sanarak son 
efektte hiç bir şey listelemez. 


Programı tekrar listelenir hale getirmek için, 
her iki bellek satırına programın başlangıç değerle- 
rini yazmanız gerekir. Bölüm 2.7.5'den de bildiğiniz 
gibi 368. bellek satırı satır uzunluğunun alt Bayt'ını, 
bellek satırı 369 satır uzunluğunun üst Bayt'ını kap- 
sar (genel olarak "sıfır"). 
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Gördüğünüz gibi 368'esatır uzunluğunun LSB'si 
369 satır uzunluğunun MSB'si yüklenmelidir. Prog- 
ramın ilk satırı 255 Bayı'tan daha uzun olduğu için 
369'uncu bellek satır değişmemiş olarak kalabilir. 


İlk program satırının satır uzunluğunu basit bir 
deneme ile bulabilirsiniz, buenazından 6 Bayt uzun- 
luğunda olmalıdır (bakınız konu 2.7.5) ve değeri de 
başka bir tahminle belirlenir. 


Tahmini değeri 368'inci bellek satırına POKE 
ediniz. Programı doğru olarak listelerseniz, isabet 
etmiş olursunuz, aksi halde bunu tekrar denemelisi- 
siniz. 

“İlk program satırının sonu için PEEK komutu 
ile sıfırı ararsanız diğer bir alternatif ortaya çıkar. 
Sıfırı bulduğunuzda (Program metnindeki değişken 
şeklinin de sıfır değeri olduğuna dikkat ediniz) sıfır 
bellek satır adresinden 367'yi çıkarır ve elde edilen 
değeri 368'inci satıra yüklersiniz. 


Bütün hepsi POKE'lenince program listelenme- 
lidir, aksi halde hata yapar ve hepşeye baştan baş- 
larsınız. 


Şimdi programı çalıştırmayı deneyiniz! Değiş- 
ken tablo göstergesi 370'inci bellek satırını gösterir 
ve programı çalıştırırsanız verilen değişken değerleri 
BASIC-programının başına yazabilirsiniz. Böylece er 
yada geç tamamlayabilirsiniz. 


Programı çalıştırmadan yada edite etmeden 
önce değişken tablo göstergesini program sonuna 
yerleştirmeniz gereklidir. Program sonunu arka arka- 
ya üç sıfırı aramak suretiyle bulabilirsiniz. Şimdi 
370'inci bellek satırındaki omuhtevayı (o 378'inci 
satıra kadar not ediniz (şayet i değişkeni tarafından 
üzerine yazılırsa) ve Direkt mod'da aşağıdakileri 
kaydediniz. 
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FOR i-379 TO 43901:IF PEEK(i)-0 AND PEEK(it1)-0 
AND PEEK(it2)-0 THEN i-it3:PRINT i ELSE NEXTİ 


Bir müddet sonra (birkaç dakika sürebilir, 
sabırsızlanmayın) bu komut zinciri tarafından bir sa- 
yı verilir. Bu değer değişken tablosunun yeni başlan- 
gıcını belirtir. 


POKE 4476,i-1INT(i/256) *256 
POKE 44676,INT(i/256) 
POKE 44677,i-INT(i/256) *256 
POKE 44678,INT(i/256) 


Yukardaki komutlarla değişken tablosu göster- 
gesini düzeltebilirsiniz. 


Böylece 370'den 378'e kadarki bellek satırları— 
nı not edilen değerlerle düzeltebilirsiniz, çünkü bu 
bellek alanı i değişkeninin ara yüklenmesi için kul- 
lanılmıştır. 


Şimdi programınız tekrar çalışabilir ve edite 
edebilir. 


"Load error a" durumu ortaya çıktığında, CPC 
464 ilk okuma hatası oluştuğunda programın okun- 
masını keser ve siz programın geri kalanını mecbu- 
ren yeniden düzenlersiniz. 


Buna karşın "Load errorb" durumu oluştuğun- 
da, bilgisayar programı tamamen yükler ve okuma 
hatası herhangi bir program satırında bulunur. 


Yükleme esnasında hatanın zamansal olarak or- 
taya çıkmasıyla hatanın nerede olduğunu yaklaşık 
olarak kestirebilirsiniz. Ya programı baştan aşağı 
tararsınız ve uygun satırları düzeltirsiniz yada prog- 
ramın çalışması esnasında bir hata ikazının oluşma- 
sını beklersiniz. Okuma hatasının tasfiyesi yeterliyse 
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meselâ değişken ismin verilişi değişmişse, bu şartlar 
altında gerçekten uzun yada belki boşuboşuna bir 
hata ikazı bekleyebilirsiniz. 


Bu yöntem okunamayan programlardan kurtul- 
mak için size basit gelmiyorsa, CPC 464'deki belle- 
nim süreçlerinin anlaşılması size bunu kolaylaştırır 
ve size zaman kazandırabilir. 
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CPC 464'ÜN YAZILIM SİSTEMİ 


Bu bölüm oldukça faydalı ve uygulanmış programlar- 
dan ve oyunların programlama yönergelerinden oluşmakta- 
dır. 


Programların sayfalar süren listelerinden korkmayınız, 
zira CPC 464'ün marifetleri ve hünerleri sadece somut ör- 
neklerde daha iyi görülmektedir. Bu bölümün yazılım siste- 
mini baştan aşağı tetkik ederseniz, her programın sayısız 
yordamlarını görebilirsiniz. Bu yordamlar size kendi prog- 
ramlarınızı hazırlamada yardımcı olacaklardır. 


Bütün programlar kendi kullanım imkânlarını açıkla- 
maktadırlar. Bundan dolayı daha fazla açıklamaya gerek 
duyulmamıştır. Bir programın özel yordamlarının anlaşıl- 
ması için uygulanması zor olan bütün programların fonksi- 
yonlarının belirlenmesi gerekir. 


Bu bölümün yazılım sisteminde gerçekten fazla metin 
verildiği için bütün programlarda Mod 2 kullanılır. Aynı 
zamanda bütün programlar Alman Umlaut'larını kullanırlar. 
Bu Umlaur'ların CPC 464'e ön yükleme yapılması ve bu 
bölümün yazılım sistemine göz atmak için ilk konunun 
programını kullanınız. 


3.1 İçindekiler 


100 REM #** İÇİNDEKİLER #*#s 

110 MODE 2:WIDTK 8O:MEMORY 43903 

120 KEY 128,“LIST “:KEY 13B, “EDIT “:KEY 
139, “RUN“*CHRS$(13)3KEY 140, “PRINT&N, “*#CH 
RS$(34) 

130 SYMBOL AFTER 91 

140 SYMBOL 91,102,24,60,102,102,126,102, 
o 

150 SYMBOL 92,102,60,102,102,102,102,60, 
o 

160 SYMBOL 935,102,0,102,102,102,102,b0,0 
170 SYMBOL 123,102,0,120,12,124,204,118, 
o 

180 SYMBOL 124,102,0,60,102,102,102,60,0 
190 SYMBOL 125,102,0,102,102,102,102,62, 
o 

200 SYMBOL 126,60,102,102,108,102,102,12 
4,96 

210 PRINT STRINGS(8O,”" “) 

220 PRINT TAB(15)ş5“ ##* İÇİND 

SEKİLER #*#* 

230 PRINT STRINGS(8O,” "):3PRINT 


240 PRINT" GOSTERİ ş TAB 
(5095 “GOST.“ş TAB(70)5*() “3 PRINT 
250 PRINT“ Aylık Takvim a 


AB(50); “MONAT“şTAB(70)5“()“:3PRINT 
260 PRINT"“BIORITM";TAB(S0) 
3“B1I0”;TAB(70)5“()*:PRINT 

270 PRINT'“FINANS HESAPL 

ARI .“ş TAB(SO)ş “FINANSLAR»; TAB(70)45*() “gp 
RINT 

280 PRINT“ 'FONKSIYON GRAFIĞI “3T 
AB(50) ş “FONKSIYON “ş TAB(70)5*() “ıPRINT 

290 PRINT"Soruşturma programı" 

3TAB(SO) Ş"SORUŞTURMA" 5 TAB(70)5"()":PRINT 
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300 PRINT "ADRESLERIN YÖNETİM er walt 

TI “şTAB(SO0)ş “ADRESLER “;TAB(70)5“()“:P 
RINT£PRINT 

310 PRINT CHRS8(7)ş:1PRINT"“Kaseti arzu edilen 
programın band numarasına kadar sarınız 


ve uygun programı büyük harflerle ve kısaltıl 
mış olarak yükleyin" 


320 END 


100 Programın adı 

110 Ön yükleme 

120 İşlev tuşlarının yerleştirilmesi 

130 ASCII'den 91 değerinin matrisinn RAM belleğe 
kopya edilmesi 

140 işaretinin ifade edilmesi 

150 Ö işaretinin ifade edilmesi 

160 Ü işaretinin ifade edilmesi 

170 işaretinin ifade edilmesi 

180 ö işaretinin ifade edilmesi 

190 ü işaretinin ifade edilmesi 

200 işaretinin ifade edilmesi 


210 Program adının 
230 Kaydedilmesi 


240'dan 
300'e kadar program adının ve kısalmaların, band 
numaralarının kaydedilmesi 


310 Metnin kaydedilmesi 
320 Programın sonu 


97 


3.2 Gösteri Programı 


100 REM #*** GÖSTERİ PROGRAMI *#* 
110 MODE 2:CLEAR:DEFİINT a-zsı RANDOMIZE TI 
MEsDEG ' 
120 LOCATE 350,135:PRINT“CHAOS IM COMPUTER 
“ 

200 REM 

210 REM *** Üzel Atışlar *#** 

220 ENV 1,15,-1,1 

250 SOUND 7,0,-5,15,1,0,15 

300 REM 

310 REM #*** Makineli Tüfek 1 *** 
320 SOUND 1,4095,200,15,0,0,10 
33O WHİLE SO(1)>127s5WEND 

400 REM 

410 REM #*** Makineli Tüfek 2 #*#* 
420 ENV 1,5,-1,1 

450 FOR laufsi TO 25 

440 SOUND 4,0,10,15,1,0,10 

450 WHİLE S0(4)>127:6WEND 

460 NEXT lauf 

500 REM 

510 REM *** Laser Ateşi *** 

520 FOR lasersit TO 5 

530 FOR lauf-31 TO 1 STEP -1 
540 SOUND 1,0,1,15,0,O,lauf 
550 NEXT l1auf 

560 FOR laufsi TO 51 

570 SOUND 4,0,1,15,0,O,lauf 
580 NEXT l1auf 

590 NEXT laser 

600 REM 

610 REM *** patlama *** 

620 FOR laufsi TO ZI 

630 SOUND 4,0,10,15,0,0,lauf 
640 NEXT lauf 
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700 
710 
720 
730 
740 
750 
800 
810 
820 
830 
840 
850 
860 
870 
880 
900 
910 
920 
930 
940 
1000 
1010 
1020 
UÇUŞ 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


REM 
REM $$$ Siren 135 
ENV 1,5,-1,20,5,1,20 
ENT -1,100,1,1,100,-i,1 
SOUND 2,60,-35,15,0,1 
WHILE S0(4)>1275WEND 
REM 
REM *** Marten Kornası *** 
ENV 1,15,1,1,1,0,40,5,-1,1 
FOR laufsi TO 5 
SOUND 1,190,60,0,1 
WHYLE S0(1)>127:WEND 
SOUND 4,142,60,0,1 
WHILE S0(4)>127:5WEND 
NEXT lauf 
REM 
REM »#** roketler start *** 
FOR- laufs-31 TO 4 STEP -1 
SOUND 7,0,50, (1auf-2)/4,0,0,lauf 
NEXT lauf 
REM 
REM #*** Helikopter *** 
LOCATE 30,13:PRINT”"HELİKOPTERDE 
" 
ENV 1,15,1,1 
FOR 1auf-30 TO 15 STEP -1 
SOUND 1i,O,lauf,O,i,O,lauf 
WKILE SO(1)>127:WEND 
NEXT lauf 
SOUND S5,0,-30,0,1,0,15 
WHILE SO(1)>127:WEND 
FOR l1auf:15 TO 30 
SOUND 4,O,lauf,O,li,O,lauf 
WHILE SO0(4)>127:WEND 
NEXT lauf 
ENV 1,15,1,5,15,-i1,10 
SOUND 4,0,250,0,1,0,31 


2000 
2010 
2020 
2050 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2160 
2170 
3000 
3010 
3020 
3050 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3150 
3140 


REM 
REM #*#* Demiryolu *#*#*# 
MODE 1:L0CATE 15,135sPRINT”"DEMİRYOLU" 


kanalsi 

FOR 1auf-24 TO 6 STEP -2 
GOSUB 10000 

NEXT lauf 

kanals353 

60OSUB 20000 

ENV i,i5,i,i,15,-1,2 
SOUND 7,0,-20,0,1,0,5 
WHILE S0(2)>127s5WEND 
kanal-6 

GOSUB 29000 

kanals4 

FOR laufs& TO 16 STEP 2 
GOSUB 10000 

NEXT lauf 

REM 

REM *** Örnek 1 *** 

MODE 2 

FOR ysO TO 399 STEP 5 
MOVE O,yıDRAW 439,399-y 
NEXT y 

FOR x-0 TO 639 STEP 5 
MOVE x,OsDRAW 639-—x,599 
NEXT Xx 

FOR wartensi TO 20006NEXT warten 
REM 

REM #*** Örnek 2 *** 
CLSs6MOVE 0,0 

FOR laufs0 TO 399 STEP 4 
DRAW 639,laufs DRAW 439-lauf,3996DRA 


W 0,399-lauf:ıDRAW lauf,0 


3150 


NEXT lauf 


3160 FOR wartensi TO 2000:NEXT warten 
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3200 
3210 
3220 
3250 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3550 
3540 
3550 
33560 
3400 
3410 
3420 
3450 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
4000 
4010 
4020 
4050 
4040 
4050 
4060 
4070 


REM 

REM su# Örnek 3 *** 

CLS: MOVE 0,0 

FOR x-0 TO 639 STEP 8 

MOVE O,OsSDRAN x,399 

MOVE 659,599s5DRAW x,O0 

MOVE 639,O0DRAW x, 399 

MOVE O0,399:DRAW x,0 

NEXT Xx 

FOR wartensi TO 2000:3NEXT warten 
REM 

REM **#* Sinüs Eğirisi *** 
CLS:ORIGIN 0,200:DRAW 639,0 

FOR laufs0 TO 720 

DRAN 64011lauf/720,1998SIN(lauf) 
NEXT lauf 

FOR wartensi TO 2000:NEXT warten 
REM 

REM ##* daire *** 

CLS:ORIGIN 320,200:M0VE 320,399 
LOCATE 38,13:PRINT" Daire " 

FOR lauf-O TO 360 

DRAW 1994SIN(lauf) ,199$COS(lauf) 
NEXT lauf 

FOR laufsO0 TO 360 

MOVE 0,0 

DRAW 1994SIN(lauf),199$COS(lauf) 
NEXT lL1auf 

FOR wartensi TO 2000:NEXT warten 
REM 

REM *** hatlar *#* 

CLS:ORIGIN Z20,200 
X3SINT(RNDS5*2) 

ysINT(RNDSS5*2) 

FOR layfsi TO 3600 STEP 6 
Zzs1008COS(1auf) 

MOVE 2,2 
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4080 DRAW 199$COS(lauf/x),19983SIN(lauf/y 


) 


4090 NEXT lauf 

4100 60TO 4020 

10000 REM 

10010 REM #*#* hızlandırma ve yavaşlatma alt 
sistemi *** 

10020 ENV 1,15,i,lauf/2,15,-i,lauf/2 
10030 SOUND kanal,0,-1,0,1,O,lauf 
10040 WHİLE SO(kanal) >127sWEND 

10050 RETURN 

20000 REM 

20010 REM **#* sabit hız alt sist 

emi *** 

20020 ENV 1,15,1,2,15,-i,2 

20030 SOUND kanal,O0,-5,0,1,0,4 

20040 WHILE S0(2) >127:WEND 

20050 RETURN 


Dikkat : Warten bir değişken değerdir. 


100 
110 
120 


200 
220 
230 


300 
320 
330 


400 
420 
430 


440 


Program ismi 
Ön yükleme 
Metin basımı 


Atışların kaydedilmesi için yordam 
Ses şiddeti eğrisinin tarif edilmesi 
Eğrinin üç kanal üzerine beş kez verilmesi 


Makinalı tüfek 1'in verilmesi için yordam 

Tiz sesin paralel verilmesi ve gürültünün iki sa- 
niye için sol kanala verilmesi 

Döngü gürültünün sona ermesini bekliyor 


Makinalı çöfek 2'nin verilmesi için program 

Ses şiddeti eğrisinin tarif edilmesi 

Eğrinin yirmibeş kez kaydedilmesi için döngü 
başlangıcı 

Gürültünün ses şiddeti eğrisiyle verilmesi 
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450 
460 


500 
520 
530 
540 
550 
560 
570 
580 
590 
600 
620 
630 
640 


700 
720 


730 
740 
750 


800 
820 
830 


840 
850 
860 
870 
880 


900 
920 


930 
940 


1000 


Döngü gürültü verilişinin sona ermesini bekliyor 
Eğrinin yirmibeş kez kaydedilmesi için döngü sonu 


Laser ateşinin verilmesi için program 

Beş kez laser atışı için döngü başlangıcı 
Gürültünün geri sayması için döngü başlangıcı 
Gürültünün sol kanal üzerine verilmesi 
Gürültünün geri sayması için döngü sonu 
Gürültünün ileri sayması için döngü başlangıcı 
Gürültünün sağ kanal üzerine verilmesi 
Gürültünün ileri sayması için döngü sonu 

Beş kez laser atışı için döngü sonu 
Patlamanın kaydedilmesi için program 
Gürültünün ileri sayması için döngü başlangıcı 
Gürültünün sağ kanal üzerine verilmesi 
Gürültünün ileri sayması için döngü sonu 


Sirenin kaydedilmesi için program 

Alçalan ve yükselen siren sesi için' ses şiddeti 
eğrisinin tarif edilmesi 

Sesin uğultusu için frekans eğrisinin tarif edilmesi 
Siren sesinin orta kanal üzerine üç kez verilmesi 
Döngü sağ kanal üzerindeki gürültünün (patlama) 
sona ermesini bekliyor 


Martin kornasının kaydedilmesi için program 
Yumuşak ses için ses şiddeti eğrisinin tarif edilmesi 
Martin kornasının beş kez verilmesi için döngü 
başlangıcı 

Tiz sesin sol kanal üzerine verilmesi 

Döngü sesin sona ermesini bekliyor 

Bas sesin sağ kanal üzerine verilmesi 

Döngü sesin sona ermesini bekliyor 

Martin kornasının beş kez verilmesi için döngü 
sonu 


Roketlerin havalanması için program 

Gürültünün geri: sayması ve ses şiddetinin azaltıl- 
ması için döngü başlangıcı 

Gürültünün her üç kanala verilmesi 

Gürültünün geri sayması ve ses şiddetinin azaltıl- 
ması için döngü sonu 


Helikopter uçuşunun kaydedilmesi için program 


1020 
1030 
1040 


1050 
1060 
1070 


1080 
1090 
1100 


1110 
1120 
1130 


1140 
1150 


2000 
2020 
2030 
2040 


2050 
2060 


2070 
2080 
2090 
2100 
2120 
2130 
2140 
2150 


2160 
2170 


3000 
3020 
3030 
3040 
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Metin basımı 

Ses şiddeti eğrisinin tarif edilmesi 

Gürültünün geri sayması ve kısaltılması için dön- 
gü başlangıcı 

Gürültünün sol kanala verilmesi 

Döngü gürültünün sona ermesini bekliyor 
Gürültünün geri sayması ve kısaltılması için dön- 
gü sonu 

Gürültünün sol ve sağ Kanala otuz kez verilmesi 
Döngü gürültünün sona ermesini bekliyor 
Gürültünün ileri sayması ve uzatılması için döngü 
başlangıcı 

Gürültünün sağ kanala verilmesi 

Döngü gürültünün sona ermesini bekliyor 
Gürültünün ileri sayması ve uzatılması için döngü 
sonu 

Durdurma için ses şiddeti eğrisi tarif edilmiştir. 
Gürültünün sağ kanala verilmesi 


Trenin hareketi için program 

Metin basımı 

"sol" Kanalın belirtilmesi 

Gürültünün geri sayması ve kısaltılması için döngü 
başlangıcı 

Hızlandırma alt programının çağrılması 
Gürültünün geri sayması ve kısaltılması için döngü 
sonu 

"sol orta" kanalın belirtilmesi 

"sabit hız" alt programının çağrılması 

Ses şiddeti eğrisinin tarif edilmesi 

Gürültünün üç kanal üzerine yirmi kez verilmesi 
"sağ orta" kanalın belirtilmesi 

"sabit hız" alt programının çağrılması 

"sağ" kanalın belirtilmesi 

Gürültünün ileri sayması ve azaltılması için dön- 
gü başlangıcı 

Yavaşlatma alt programının çağrılması 
Gürültünün ileri sayması ve uzatılması için döngü 
sonu 

Örnek-1'in verilmesi için program 

Yüksek çözülen mod'da ekranın silinmesi 
y-Koordinatının yükseltilmesi için döngü başlangıcı 
Bir hatın ekran üzerine verilmesi 
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3050 
3060 
3070 
3080 
3090 


3100 
3120 
3130 
3140 
3150 
3160 


3200 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 


3330 
3340 


3350 
3360 
3400 
3420 


3430 
3440 
3450 


3460 
3470 


y-Koordinatının yükseltilmesi için döngü sonu 
x-Koordinatının yükseltilmesi için döngü başlangıcı 
Bir hatın ekran üzerine verilmesi 

x-Koordinatının yükseltilmesi için döngü sonu 
Bekleme döngüsü 


Örnek-2'nin verilmesi için program 

Ekranın silinmesi ve grafik kursörünün pozisyon alması 
Kaydırma faktörü için döngü başlangıcı 

Kaydırılan dörtgenin verilmesi 

Kaydırma faktörü için döngü sonu 

Bekleme döngüsü 


Örnek-3'ün verilmesi için program 

Ekranın silinmesi ve grafik kursörünün pozisyon alması 
x-Koordinatının yükseltilmesi için döngü başlangıcı 

Çizgi (hat) sol alttan başlıyor 

Çizgi sağ üstten başlıyor 

Çizgi sağ alttan başlıyor 

Çizgi sol üstten başlıyor 

x-Koordinatının yükseltilmesi için döngü sonu 
Bekleme döngüsü 

Ekranın silinmesi, koordinat sıfır noktasının yerleşti- 
rilmesi ve x-Ekseninin verilmesi 

İki tam sinüs dalgası için döngü başlangıcı (720 derece) 
x-Koordinatının, iki dalganın (720 derece) tam bir 
ekran genişliği (640 nokta) kapsadığının hesaplanması 
y-Koordinatının, dikeyin ekran yüksekliğinin (200 nok- 
ta) tam yarısının hesaplanması 

İki tam sinüs dalgası için döngü sonu 

Bekleme döngüsü 

Çemberin verilmesi için program 

Ekranın silinmesi, koordinat sıfır noktasının yerleşti- 
rilmesi ve grafik kursörünün çember başlangıcında 
pozisyon alması 

Metin basımı 

Tam bir çember için döngü başlangıcı (360 derece) 

x ve y koordinatlarının, çemberin ekran çerçevesinin 
üst ve alt kenarına kadar uzandığının hesaplanması ve 
çemberin verilmesi 

Tam bir çember için döngü sonu 

Tam bir çember için döngü sonu (360 derece) 


480 
3490 


3500 
3510 
4000 
4020 
4030 
4040 


4050 
4060 
4070 


4080 


4090 
4100 


10000 


10020 
10030 
10040 
10050 


20000 
20020 
20030 


105 


Grafik kursörünün çemberin orta noktasında bulunması 
Çemberin orta noktasından çemberin kenarına kadar 
uzanan çizginin verilmesi 

Tam bir çember için döngü sonu 

Bekleme döngüsü 


Çizgilerin verilmesi için program 

Ekranın silinmesi ve koordinat O noktasının yerleşti— 
rilmesi 

x koordinatı için 1 ile 7 arasındaki rastgele değerin 
bulunması 

y koordinatı için 1 ile 7 arasındaki rastgele değerin 
bulunması 

Sayılar ve çizgilerin pozisyonu için döngü başlangıcı 
Çizgi başlangıç koordinatlarının tarif edilmesi 

Grafik kursörünün çizgi başlangıç koordinatında pozis- 
yon alması 

Çizgi bitiş koordinatı hesaplanması 

Çizgi başlangıcı ve çizgi bitişi arasındaki hatın verilmesi 
Sayılar ve çizgilerin pozisyonu için döngü sonu 

Sonsuz döngü 


Trenin hızlandırılması ve yavaşlatılması için altprog- 
ram 

Ses şiddeti eğrisinin tarif edilmesi 

Gürültünün belirtilen kanal üzerine verilmesi 

Döngü gürültünün sona ermesini bekliyor 

Ana programa geri dönüş 


Trenin sabit hızı için alt program 
Ses şiddeti eğrisinin tarif edilmesi 
Gürültünün belirtilen kanal üzerine verilmesi 


20040 Döngü gürültünün sona ermesini beklemektedir 
20050 Ana programa geri dönüş 
Sözlük: (Asağıdaki nroaramda kullanılan bazı ke- 
limelerin anlamları) Monat-ay .Jahr-yıl, Tage- 
günler, Monatslange- ay uzunluğu, Wochentag> haf- 
tanın günü 
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3.3 Aylık Takvim 


100 REM *** AYLIK TAKVİM *** 

110 MODE Z2:CLEAR:RESTORE 

120 REM 

150 REM *** Program listesi *** 
140 PRINT STRINGS$(8O,” “) 

150 PRINT TAB(20)$5"8 $ $ AYLIK TAK 
VİM ### 

160 PRINT STRINGS$(8O,” “) 

170 PRINT:PRINT:PRINT 

180 PRINT” Bu program arzu edilen bir yılın 
'arzu edilen ayının haftalarını hesap 


lar" 

190 PRINT:PRINT Ş 
200 PRINT CHRS$S(7);ş:PRINT"lütfen ay numaras 
ını ve yıl sayısını virgülle ayrılmış bir şe 
kilde kaydediniz." i 

210 INPUT amonat,jahr 

220 IF monatl<i OR monat>12 THEN PRINT:PR 
INT“Gregorien Takvimi sadece bir den on 

ikiye kadarki ayı tanır":G0TO 190 

2350 IF jahr<100 AND jahr>O0 THEN  ahrsjah 
r*1900:G0TO 250 

240 IF jahr<1582 OR jJahr<1583 AND monat< 


11 THEN PRINTıPRINT"İilk olârak 1582 senesi 
Ekim ayında gregoryen takvimi kullanılmış 


tır. 4.10.1952 yılındaki Juliyen zaman hesab 
ını 15.20,1952 tarihli gregoryer zaman hesa 
bı izlemiştir":60T0 

190 

250 REM 

260 REM sss AY isminin ve ay uzunluğunun 
okunması **9* 


270 FOR laufsi TO 12 

280 READ a8,a 

290 IF laufsaonat THEN aonat$za$ımonatsi 
aengesa 

300 NEXT lauf 

310 REM 

320 REM *** artık yıl tashihi #*#* 

330 IF Jahr MOD 400-0 OR Jahr MOD 4-0 AN 
D jJahr MOD 100<>0 THEN »sartıkyıl. mg 

340 IF schaltjahrsi AND monat-2 THEN mon 
atslaenges-29 

350 REM 

360 REM *** Haftanın Günlerinin hesaplanma 
sı bel 

370 tagesjahr3365tINT(jahr/4)-INT(janr/l 
OO) *INT(Jahr/400)-365 

380 FOR laufsi TO 12 

390 READ maonatstage 

400 IE laufsmonat THEN tagestagetmonatst 
age 

410 NEXT l1auf 

420 IF monat<35 AND --artıkyıl:sı THEN tag 
estage-i 

430 wochentagstage-INT(tagae/7)17 

440 IF wochentag-O THEN wochentag:7 

450 REM 

460 REM *** takvim ifadesi *** 

470 CLSıLOCATE 3O,isPRINT monat$;jahr 
480 FOR spaltesi TO 73 STEP 12 

490 LOCATE spalte,353 

5090 READ wochentag$ıPRINT TAB(spalte);şwo 
chentag8 

510 NEXT spalte 

520 FOR reihes&ö TO 21 STEP 5 

530 FOR spaltes2 TO 74 STEP 12 

540 LOCATE spalte,reihe 

550 wochentagsuochentag-i 
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560 IF wochentag<i THEN monatslaengesaon 
atslaenge-—isiIF aonatslaenge>s0 THEN datu 
asdatumtizPRINT datum 

570 NEXT spalte 

580 NEXT reihe 

590 PRINT3IPRINTSPRINT 

600 PRINT CHRS(7)ş:5PRINT "pir başka takvim 
ifadesi (e/h)7" z 

610 a8sINKEY$S:IF a$-“j4“THEN 110 ELSE IF 
a$(<>“n” THEN 610 

420 END 

1000 REM 

1010 REM *** takvim verileri *** 


1020 DATA OCAK,31,ŞUBAT,286,MART,31,NİSAN,30, 
MAYIS,351,HAZİRAN,3O,TEMMUZ,31,AĞUSTOS,31 
EYLÜL,30,EKİM,31,KASIM,3O0, 

ARALIK ,31 

1030 DATA 1,32,60,91,121,152,182,213,244 
274,305, 335 

1040 DATA Pazartesi,Salı,Çarşamba,Perşembe,Cu 
ma ,Cumartesi,Pazar 


100 program ismi 

110 ön yükleme 

140'dan 

160'a kadar program isminin kaydedilmesi 


170'den 
200'e kadar metin ifadesi 


210 Ay ve yılın kaydedilmesi 

220 Ay'ın kontrol edilmesi 

230 Yılın yüz yılının eksik olup olmadığının kontrol 
edilmesi 

240 Yılın kontrol edilmesi 


270 


280 
290 
300 


330 
340 


370 
380 


390 
400 
410 


420 


430 
440 
470 
480 
490 
500 
510 


520 
530 
540 
550 
560 


570 
580 
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Ayismi ve ay uzunluğunun okunması için döngü baş- 
langıcı 

Ay ismi ve ay uzunluğunun okunması 

Aranan ismin ve aranan uzunluğun belirtilmesi 

Ay ismi ve ay uzunluğunun okunması için döngü sonu 


Artık yıl kontrolü 

Artık yıl ve arzu edilen ay Şubat'ta 

Ay uzunluğunun 29 güne uzatılması 

Arzu edilen yıla kadar geçen günlerin hesaplanması 


Arzu edilen aya kadar geçen günlerin okunması için 
döngü başlangıcı 

Günlerin sayısının kaydedilmesi 

Aranan günlerin belirtilmesi 

Arzu edilen aya kadar geçen günlerin okunması için 
döngü sonu 

Artık yıl ve arzu edilen ay Ocak ve Şubat'ta gün sa- 
yısının düzeltilmesi 


Günlerin 7'ye bölünmesinde arta kalanın hesaplanması 
Pazar için arta kalan günün düzeltilmesi 

Ekranın silinmesi, yıl ve ayın verilmesi 

Haftanın günlerini basmak için döngü başlangıcı 
Kursörün pozisyon alması 

Haftanın günlerinin okunması 

Haftanın günlerinin basılması için döngü sonu 


Kursörün yatay pozisyon alması için döngü başlangıcı 
Kursörün dikey pozisyon alması için döngü başlangıcı 
Kursörün pozisyon alması 

Verilmesi gereken boş pozisyonun bire indirgenmesi 
Bütün boş pozisyonlarının verilmesi anında, ay uzunlu- 
gunun bire indirgenmesi 

Ay uzunluğunun sıfırdan büyük olması halinde, tarihin 
bir yükseltilmesi ve tarihin verilmesi 

Kursörün dikey pozisyon alması için döngü sonu 
Kursörün yatay pozisyon alması için döngü sonu 
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590'dan 
600'e kadar metin ifadesi 


610 


620 Program sonu 


3.4 Bioritm 


Sözlük: Gebjahr-Doğum yılı,Monat-Ay,Jahr-yıl, 
Tagezgünler, Monatslange-ay uzunluğu, Gebtage- 
gün uzunluğu, Monatschaft-ayın günleri, Gebmonat 
-doğum ayı, Spaltezsütun,Leange> uzunluk 
anlamlarına gelmektedir 


100 
110 
120 
130 
140 
150 
.“* 
160 
170 
180 


REM ##** BİORİTM ##* 

MODE 2:CLEAR:RESTORE:DEG 

REM 

REM $13 Programmenü 33$ 

PRINT STRINGS$(8O,”* “) 

PRINT TAB(22)5”“#x* B t OR İt T n 


PRINT STRINGS$(8O0," "“) 
PRINT:3PRINT:PRINT 
PRINI" Bu program arzu edilen bir tarih 


.için (doğum tarihinize göre) sizin için 
şahsi bioritminizi hesaplar." 


190 
200 
210 
220 


PRINT:PRINT 

REM 

REM $*$* ilk soruşturma *** 

PRINT CHRS$(7)ş:3INPUT"doğum tarihinizi 


virgülle ayrılmış bir şekilde gün,ay ve 


yıl 


ayı, 


230 
240 
250 
260 
270 
ay$ 
280 


olarak kaydediniz"; doğum günü,doğum 
doğum yılı 

REM 

REM #** bilgi işleme *** 

ayzsdoğum ayısyılzdoğum yılı 

GOSUB 1000 ya 

doğum artık yılısartık yıl:doğum ayı$z 


doğum günü <1 OR doğum günü >ay uzunluğu 


'OR doğum ayı <1 »OR doğum ayı><12 OR doğum 
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yılı<>1 OR doğum yılı 2000 THEN PRINT"Doğum 
tarihinizi biliyormusunuz?" GOTO 190 

290 IF gebiahr<100 THEN gebijahrsgebjahrt 
1900 

300 PRINT3PRINT 

310 REM 

320 REM *** ikinci soruşturma **#” 

33O PRINT CHRS(7)ş3 INPUT"beyanını istediği 
niz tarihin ay numarasını ve yıl sayısını vi 
roül ile ayrılmış olarak kaydediniz. 


340 REM 

350 REM *** bilgi işleme *** 

360 IF 'ay <1 OR ay >12 THEN PRINTıPR 
INT "Gregorien takvimi sadece bir den ib 
12'ye kadarki ayı tanır":G60TO 300 

370 IF jahr<100 THEN jahrsjahrt1900 

380 IF jahrd<gebijahr OR Jahrzgebjahr AND 
monat<doğumayı: THEN PRINTSPRINT "Doğumdan 
önceki hayatın ihtimal harici olduğu size 
açıklanma lıdır":60T0 300 


390 GOSUB 1000 

400 REM 

410 REM 3 ** farkın gün olarak hesaplanması 
””* 

420 tagezjahr$365tiINT(jahr/4)-INT(jahr/1 
00) tINT(jahr/400) 

430 gebtagezgebiahrs3ö65tiINT(gebiahr/4)-I 
NT (gebjahr/100) *tİNT (gebijahr/400) 

4â0 FOR laufzsi TO 12 

450 READ monatstage 

460 IF laufsmonat THEN tageztagetmonatst 
age 

470 IF laufsgebmonat THEN gebtagezgebtag 
etmonatstage 

480 NEXT lauf 
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490 IF monat<3 AND : artıkyıl sı THEN tag 
estage-i 

500 IF gebmonat<3 AND doğumartıkyılız1l TH 
EN gebtagezgebtage-i 

510 gebtagesgebtagetgebtag 

520 fark . -stage-gebtage 

550 REM 

540 REM #s* Ekran Metni *** 

550 CLS:PRINT monat$s:PRINT jJahr 


560 PRINT3PRINT:PRINT"i,eğri “4 **3PRINT" 
fiziki Ğ 
570 PRINT:PRINT:PRINT”" 2.eğri “s3 PRINT"“e 
psikolojik” 


580 PRINT:PRINT:PRINT“ 3. eğri .“3PRINT" 
manevi" 

590 PRINT:PRINT:PRINT "Doğumgünü" şPRINT 
600 IF gebtagsi OR gebtags6 OR gebtag>19 
THEN PRINT gebtag;ş“ster"“ ELSE PRINT geb 
tag; "ter" 

610 PRINT gebmonat$:ıPRINT gebijahr 

620 REM , 

630 REM #** Koordinat çizgileri *** 

640 OKIGIN 116,80 

650 DRAW 0,320: M0VE -8,150:DRAW 520,150 

660 MOVE -8,0:DRAW 520,0: M0VE -8,300:DR£ 
W 520, 3500 

670 LOCATE 12,2:3PRINT“*t1“3L0CATE iZ2,ileF 

RINT”" O0“:L0OCATE 12,20:PRINT"“-1" 

680 FOR x-0 TO 496 STEP 16 

690 MOVE x,O:sDRAW x,-8 

700 NEXT Xx 

710 zaehlersi 

720 FOR spaltezx16 TO 76 STEP 4 

750 LOCATE spalte,22:PRINT zaehlerizaeh: 
erszashlert2 

740 NEXT spalte 

750 REM 
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760 REM *** Eğrilerin kaydedilmesi **## 

770 ORIGIN 116,230 

780 alans32 .” 

790 FOR laenges23 TO 33 STEP S5 

800 MOVE 0,0 

810 indexz(differenz-INI(differenz/laeng 
e)$laenge) /laenget360 

820 IF jJahrsgebijahr AND monatsgebaonat T 
HEN ,. alans32'-gebtaasindexzO:sstartzik&3g 
ebtagsMOVE start,O 

850 FOR l1aufs0 TO ALAN. /1aenge1360 

840 DRAW lauf$laenge/22.Ststart,i150$SIN( 
lauftindex) 

850 NEXT lauf 

860 NEXT laenge 

870 LOCATE 1,253PRINT CHRS(7);ş:PRINT"“ Ba 
şka bir bioritm ifadesi istermisiniz(e/h)7" 


880 aşssINKEYS$S:IF a$-"j" THEN 100 ELSE IF 
a$<>"h" THEN 880 

890 END 

1000 REM 

1010 REM *** Ay uzunluğu ve artık yıl testi 
alt programı *** 

1020 RESTORE 

1030 FOR l1aufzi TO 12 

1040 READ as,a 

1050 IF laufzmonat THEN monat$sa$şmonats 
laengesa 

1060 NEXT lauf 

1070 IF jahr MOD 400ux0 OR jahr MOD 4-0 A 
ND jahr MOD 100<>0 THEN artıkyılslI 

1080 IF - artıkyılzI . AND monats2 THEN mo 
natsşlaenges-29 

1090 RETURN 

10000 REM 

10010 REM #*#* takvim bilgileri *** 
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1020 DATA OCAK,31,ŞUBAT,28,MART,31,NİSAN,30, 
MAYIS,31,HAZİRAN,30, TEMMUZ ,31,AĞUSTOS,31, 
EYLÜL,30,EKİM,31,KASIM,3O,ARALIK,31 


10030 DATA 1,12,60,91,121,152,182,213,24 
4,274,305,33S 


100 Program ismi 
110 Ön yükleme 


140'dan 
160'a kadar program isminin kaydedilmesi 


170'den 
190'a kadar metin ifadesi 


220 Doğum tarihinin kaydedilmesi 

250 Alt program için değişkenlerin gösterilmesi 

260 Alt programın çağrılması 

270 Alt programdan verilerin belirtilmesi 

280 Doğum tarihinin araştırılması 

299 Doğum yılının yüzyıl ifadesinin eksik olup olmadığının 
araştırılması 

330 Arzu edilen ay ve yılın kaydedilmesi 

360 Ayın araştırılması 

370 Yılın yüzyıl ifadesinin eksik olup olmadığının araştırıl- 
ması 

380 Arzu edilen ayın doğum ayı önünde olup olmadığının 
araştırılması 

390 Alt programın çağrılması 


420 Arzu edilen yıla: kadar geçen günlerin hesaplanması 
430 Doğum yılına kadar geçen günlerin hesaplanması 


440 Arzu edilen aya ve doğum ayına kadar geçen günlerin 
okunması için döngü başlangıcı 

450 Gün sayılarının okunması 

460 Arzu edilen gy için aranılmış olan günlerin belirtil- 
mesi 


470 
480 


490 
500 


510 
520 


550 
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Doğum ayı için aranılmış olan günlerin belirtilmesi 
Arzu edilen ay ve doğum ayına kadar geçen günlerin 
okunması için döngü sonu 

Artık yıl durumunda ve Ocak yada Şubat ayında gün 
sayılarının düzeltilmesi 

Artık yıl durumunda ve doğum ayı Ocak yada Şubat 
ayında gün sayılarının düzeltilmesi 

Doğum gününe kadar geçen günletin belirtilmesi 
Doğum günü ile arzu edilen ay ve yıl arasındaki far- 
kın hesaplanması 

Ekranın silinmesi, ay ve yılın kaydedilmesi 


560'dan 
590'a kadar metin ifadesi 


600 
610 


640 
650 
660 
670 


680 


690 
700 


710 


720 
730 


740 


770 
780 
790 
800 
810 
820 


830 
840 


Doğum gününün kaydedilmesi 


"Doğum ayı ve yılının kaydedilmesi 


Koordinat sıfır noktasının yerleştirilmesi 
y ve x eksenlerinin kaydedilmesi 

Sınır çizgilerinin kaydedilmesi 

y eksen yazısının basılması 


x eksen işaretlerinin yerleştirilmesi için döngü başlan- 
gicı 

İşaretlerin yerleştirilmesi 

x eksen işaretlerinin yerleştirilmesi için döngü sonu 


x ekseni değerinin belirtilmesi 


x ekseni yazılarının basılması için döngü başlangıcı 
Yazıların basılması 

Yazı değerinin bire yükseltilmesi 

x ekseni yazılarının basılması için döngü sonu 


Koordinat sıfır noktasının yerleştirilmesi 

Baskı alanının belirtilmesi 

Üç eğrinin basılması için döngü başlangıcı 

Grafik kursörünün pozisyon alması 

Ay başlangıcı için sinüs eğrisi durumunun hesaplanması 
Baskı alanının, sinüs eğrisi durumunun düzeltilmesi 
Doğum ayı için eğri baskısı durumunda grafik kursörü- 
nün yeni pozisyon alması ve sinüs salınımının başlangıç 
noktasının belirtilmesi 

Bir eğrinin basılması için döngü başlangıcı 

Salınım uzunluğu dahil olarak x-koordinatının hesam- 
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850 
860 


870 
880 
890 


100 
102 
103 


104 
105 


lanması. Ay başlangıcı için sinüs eğri durumunu göz 
önüne alınarak y-koordinatının hesaplanması 
Bir eğrinin baskısı için döngü sonu 


Üç eğrinin baskısı için döngü sonu 


Metnin basılması 
Evet-hayır soruşturması 
Program sonu 


O Ay Uzunluğu ve artık yıl testi alt programı 

0 DATA işaretinin yerleştirilmesi 

O Ay ismi ve ay uzunluğunun okunması için döngü 
başlangıcı 

0 Ay ismi ve ay uzunluğunun okunması 

0 Arzu edilen isim ve arzu edilen ayın belirtilmesi 


1060 Ay ismi ve ay uzunluğu için döngü sonu 


107 


0 Artık yıl araştırılması 


1080 Artık yıl ve Şubat ayı durumunda ay uzunluğunun 29 


güne uzatılması 


1090 Ana programa geri dönüş 


3.5 Finans Programı 


100 REM *** FİNANS HESAPLAMASI ##* 

110 MODE 2:CLEAR 

120 REM 

130 REM *** Program Listesi *#* 

140 PRINT STRING$(80("80," ") 

150 PRINT TAB(15)ş"“##** F İ N A NS HE S 
APLAMASI sas" 

160 PRINT STRIN$(80," ") 

170 PRINTsSPRINT:PRINT 

180 PLRINT"Hesaba bir defalık tahsilat"; TAB(60 
)s"(1)"SPRINT:PRINT 

190 PRINT"Yıl başlangıcında düzenli yıllık 
tahsilat";TAB(60)ş"(2)":sPRINT:SPRINT 

200 PRINT" Ay başlangıcında düzenli aylık 
tahsilat”";TAB(60)ş"(3)":PRINT:PRINT 

210 PRINT"Bir kredinin amortisman süresi"; 
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TAB(60)ş”(4)”“:PRINTsPRINT 

220 PRINT"Lütfen arzu edilen fonksiyonunun 

numarasını kaydediniz " 

230 GOSUP 3000 

240funktionzasON funktion GOSUB 1000,1000, 

1000,2000 

250 CLSsLOCATE 15,13:PRINT CHR$(7)ş:PRINT" 
Başka hesaplamalar istermisiniz? (e/h)" 

260 a$sINKEY$"e" THEN 100 ELSE IF a$<>"h"THEN 

260 

270 END 

1080 REM 

1010 REM **#* Fonksiyonların işlemesi 1-3 

#“.* 

1020 CLS:PRINT"Aşağıdaki hesaplar daha fazla 

değişkenler gerektirir " 

1030 PRINT"Değişkenlerden biri hesaplanabilir, 

diğer parametreler tarafınızdan kaydedilmeli 

dir. " 

1040 PRINT"Lütfen hangi parametrenin hesaplan 

ması gerektiğini belirtiniz " 

1050 PRINTsPRINT:PRINT 

1060 IF funktionsl THEN PRINT"başlangıç";s 

60TO 1090 

1070 IF funktionz2 THEN PRINT" yıllık tahsilat 

“$5:60T0 1090 

1080 PRINT "aylık tahsilat"; 

1090 PRINT TAB(30)ş”(1)":PRINTsSPRINT 

1100 PRINT"Vade"şTAB(30)ş3"(3)":PRINT2PRINT 

1100 PRINT"yüzde faizler";TAB(30);5"(2)":PRINT 

#PRINT 

1110 PRINT "Vade"şTAB(30);5"(3)":PRINT:PRINT 

1120 PRINT " son kapital"; TAB(30);"(4)"; 

PRINTSPRINT 

1130 GOSUP 3000 

1140 IF (funktionz2 OR funktionz3) AND a2 

THEN LOCATE 40,11:PRINT”hesap mualesef mümkün 
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değil”:60TO 1220 

1150 IF a <>1 THEN LOCATE 40,8sPRINT CHR$(7)ş3 
INPUT kapital ELSE positions8 

1160 IF a<>2 KPAH YOÇUKA 40,11:PRINT CHR$(7) 
$sINPUT faizler ELSE POSİTİONsIl 

1170 IF a<>3 THEN LOCATE â40,l1âsPRINT CHR$(7)şs 
INPUT vade ELSE positionsl4 

1180 IF a<>4 THEN LOCATE 40,17:PRINT CHR$(7)ş: 
INPUT son kapital ELSE positions17? 

1190 funktionzl THEN GOSUP 4000:60T0 1220 
1200 IF funktionz2 THEN 6G0SUBs4G0TO 
1220 

1210 G0SUB 6000 

1220 LOCATE 1,25sPRINT CHRS$(7)şsPRINT 
"Bu fonksiyonun bir tekrarını arzu 
edermisiniz (e/h)7" 

1230 a$zINKEY$S3SIF a$s«"e" THEN 1000 
ELSE IF a<> "h” THEN 1230 

1240 RETURN 

2000 REM 

2010 REM **#* Fonksiyonun 4 işleyişit* 
* 

2020 CLSsZONE 25:PRINT"kredi yüksekliğ 
i","kredi faizi","aylık hisse(taksit)" 
2030 LOCATE 15,1isPRINT CHR$(7)şsINPUT 
kredisLOCATE 40,1:2PRINT CHRS$(7)şsINPUT 
faizsLOCATE 6S,1:sPRINT CHRS$(7)şsINPUT 
hisse 

200 krediziINI(kredi*10040.5)/100sfaizs 
INT(faiz*10040.5)/100shissesINT(hisse 
*10040.5)/100 

2050 PRINTzPRINTSZONE 1S5smonat(ay)-0 
2060 PRINT"Ay","Ay hissesi","Kredi fa 
izleri","Amortisman",”" Bakiye"sPRINT 
2070 AysAyrisfaizlerskredi*faiz/1200sa 
mortismanshisse-faizler:kredizkredi- 
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amortisman 

2080 faizlerzINT(faizler*10040.5)/100: 
amortismanzINTI (amortisman*l10040.5)/ır 
OskredizsINT(kredi*10040.5)100 ği 
2090 PRINT ay,hisse,faizler,amortisman 
,kredi 

2100 IF>kredi 0 THEN 2070 ELSE PRINT 
2110 Yıllar-INT(ay/12)saylar-ay-yıllar 
*12 

2120 PRINTI "gerekir"şyıllar: IF yıllar 
>1 OR yıllar-0 THEN PRINT "yıllar"; 
ELSE PRINT"yıl"; 

2130 PRINT"ve"ş aylarşIFf aylar>l OR 
aylars0 THEN PRINT "aylar"ş ELSE PRINT 
"ay"; 

1140 PRINT" Kredinizin taksitle ödenme 
si için "sPRINT 

2150 PRINT CHR$(7)ş:PRINT"Bu fonksiyon 
un tekrarını istermisin.z (e/h)?2" 

2160 a$sINKEY$:IF a$-"e" THEN 2000 ELSE 
IF a$<>"h" THEN 2160 

2170 RETURN 

3000 REM 

3010 REM **#* Rakam kaydetme alt progra 
mı *## 

3020 PRINT CHRS$(7)ş 

3030 a$sINKEY$sazVAL(a$)sIF a O>AND a“5 
THEN RETURN ELSE 3030 

4000 REM 

4010 REM **##Fonksiyon 1 için formüller 
... 

4020 IF azl THEN sermayezson sermaye/( 
(14faizler/100fJ0ade):baskızsermaye:6G0T 
o 7000 

4030 IF a-2 THEN faizler-100*((son ser 
maye/sermaye)1l/vade)-1)sbaskızfaizler 
sGOTO 7030 


120 


400 IF a3 THEN vadezL0G(son sermaye/ 
sermaye) /L0G (1sfaizler/100)sbaskızva 
des60TO0 7040 

4050 son sermayezsermayef$(l1şfaizler/10 
OYüladesbaskızsson sermaye:G0TO 7050 
5000 REM 

5010 REM *#*#* Fonksiyon 2 için formülle 
pst 

5020 IF asl THEN sermayezson sermaye/l( 
((isfaizler/100)71vadet1)-1)/(faizler/l 
00)-1):G0TO 7000 

5030 IF az3 THEN VADE-L0G ((faizler/10 
0)*(son sermaye/sermaye)z(14faizler/10 
0) )/L0G (114faizler1/100)-1:6G0TO0 7040 
5040 son sermayezsermaye*(((1*faizler/ 
100)7vadet1)-1)/(faizler/100)-1):6G0TO0 
7050 

6000 REM 


6010 REM **#* Fonksiyon 3 için formülle 
r sss 
6020 IF asl THEN sermayesson sermaye/( 


(12478*faizler/1200)*(((14faizler/100) 
“vade-1)/(faizler/100))):60T0 7000 
6030 IF a3 THEN vadesL06 ((faizler/10 
0)*(son sermaye/(sermaye*(12178*faizle 
r/1200)))41)/L0G(14faizler/100):60T07040 
6040 son sermayezsermaye*(12178*faiz 
1er/1200)*(((faizler/100)“vade-1)/(fai 
z1ler/100)):46G60TO0 7050 

7000 REM 

7010 REM #** SONUÇ BASKISI **#* 

7020 sonuçssermayesG0T0 7060 

7030 sonuçsfaizler:6G0T0 7060 

7040 sonuçzvadesG0TO0 7060 

7050 sonuçsson sermaye 

7060 LOCATE-â40,pozitionssonuçsINT(so 
nuç*10040.5)/100:sPRINT sonuç 

72070 RETURN 
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100 Program ismi 
110 Ön yükleme 


140'dan 
160'a kadar program isminin kaydedilmesi 


170'den 
220'ye kadar liste metninin basılması 


230 "Rakam kaydetme" alt programının çağrılması 
240 Arzu edilen alt programa geçiş 


250 Ekranın ve metin ifadesinin silinmesi 
260 Soruşturma durumu 
270 Program sonu 


1000 Fonksiyon 1, fonksiyon 2 ve fonksiyon 3 için alı 
alt program 

1020'den 

1120'ye kadar liste metninin basılması 


1130 "Rakam kaydetme" alt programının çağrılması 

1140 Hesaplama için formül olmadığı zaman metin basıl- 
sılması 

1150'den 

1180'e kadar zaruri bilgilerin kaydedilmesi 

1190'dan 

1210'a kadar arzu edilen fonksiyonun alt programının çağ- 
rılması 


1220 Metnin basılması 
1230 Soruşturma durumu 
1240 Ana listeye geri dönüş 


2000 Fonksiyon 4 için alt program 

2020 Metnin basılması 

2030 Zaruri bilgilerin kaydedilmesi 

2040 Değerlerin yuvarlatılması 

2050'den 

2060'a kadar tablo başının kaydedilmesi 

2070'den 

2080'e kadar ayın bire yükseltilmesi ve bu ayın değerleri 
rinin hesaplanması 

2090 Değerlerin kaydedilmesi 

2100 Amortisman müddetinin hesaplanması 
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2110'dan 
2140'a karlar amortisman müddetinin basılması 


2150 Metnin basılması 

2160 Soruşturma durumu 

2170 Ana listeye geri dönüş 

3000 Rakam kaydetme alt programı 

3030 Rakamların soruşturulması ve rakamlar O ile 5 ara- 
sında olunca ana listeye geri dönüş 


4000 Fonksiyon -1 için formüller alt programı 

4020'den 

4050'ye kadar arzu edilen formüllerin seçimi, aranılan de- 
gerin hesaplanması ve sonuç bölümüne atlama 


5000 Fonksiyon 2 için formüller alt programı 

5020'den 

5040'a kadar arzu edilen formülün seçimi, aranılan değerin 
hesaplanması ve sonuç bölümüne atlama 


6000 Fonksiyon 3 için formüller alt programı 

6020'den 

6040'a kadar arzu edilen formülün seçimi, aranılan değerin 
hesaplanması ve sonuç bölümüne atlama 


7000 Sonuç kayıt bölümünün başlangıcı 

7020'den 

7050'ye kadar sonuç için aranılan değerin belirtilmesi 
7060 Yuvarlatma işlemi ve sonucun kaydedilmesi 

7070 Fonksiyon 1, 2 ve 3 için alt programa geri dönüş 


3.6 Fonksiyon Grafiği 


100 REM *** FONKSİYON GRAFİĞİ *#s#* 
110 MODE 2:CLEAR 

120 DEF FN fonksiyon(x)3x“3-x“243*x 
130 xminiz-l1O0Osxmaxizl0 

140 REM 

150 REM 

160 PRINT: STRING$(80," ") 

170 PRINT TAB(20)ş”* * * FONK 
SİYONGRAF İĞ »s » 4" 
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180 PRINT STRING$(80,” ") 

190 PRINTsPRINT 

200 PRINT"Bu pragrsas verilen fonksiyon 
için grafik çizer." 

210 PRINT"(Y-Ekseni için asimptot 
paraleli çizilir.)"sPRINT 

220 PRINT"Aşağıdaki ihtimaller seçim 
içindire"sPRINTSPRINT 

230 PRINT”"Yeni fonksiyon kaydediniz"; 
TAB(30);"(1)":PRINT 

240 PRINT"x-Ekseni sınırlarını tespit 
ediniz"şTAB(30)ş"”(2)":PRINT 

250 PRINT"y-Ekseni sınırlarını tespit 
ediniz"şTAB(30)ş5"(3)":PRINT 

260 PRINT"Fonksiyon grafiği kaydediniz 
“TAB(30)ş"(a)"sPRINTSPRINTSPRINT 

270 PRINT CHRS$(7)şsPRINT"Lütfen arzu 
ettiğiniz bir numarayı kaydediniz " 
280 a$sINKEY$sazVAL(a$)sIF a<1 OR a>4 
THEN 280 

290 CLS:0ON a GOSUB 1000,2000,3000,4000 
300 CLSsIF azs4 THEN LOCATE 12,15:2PRINT 
CHR$(7)şsPRINT"Bu program devâm etme- 
li midir? (e/h) 2?" ELSE 150 

310 a$sINKEY$SIF a$zx"e"” THEN CLS:6G0TO 
150 ELSE IF a$<>"“h” THEN 310 

320 END 

1000 REM 

1010 REM *** Yeni fonksiyon kaydediniz 
... 

1020 PRINT"Lütfen fonksiyonunuzu 
aşağıdaki şekilde 120'inci satıra 
kaydediniz:"sPRINT 

1030 PRINT”120 DEF FN fonksiyon(x)sx“4 
#42*Xx“3-Xx sesse V5."3PRINT 

1040 PRINT"Buna müteakip programı 

RUN komutu ile tekrar başlatabilirsi- 
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niz."sPRINT 

1050 PRINT"Program değişikliği yapma- 
mış iseniz, Program CONT komutuyla 
devam edilebilir":sPRINTsSPRINTsSTOP 
1060 RETURN 

2000 REM 

2010 REM *#*$ x-Ekseni sınırlarını 
tespit ediniz *** 

2020 PRINT"x-Ekseninin alt ve üst 
sınırlarını kaydediniz "sPRINTsPRINT 
2030 PRINT CHRS$(7)şsINPUT"alt sınır"şx 
minisPRINT 

2040 PRINT CHR$(7)şsINPUT"üst sınır"şx 
maxisPRINT 

2050 IF xmaxilSsxmini THEN PRINT"hata- 
lı kayıt "“sPRINT:GOTO 2020 

2060 RETURN 

3000 REM 

3010 REM *#** y-Ekseni sınırlarını 
tespit ediniz **#* 

3020 PRINT"y-Ekseninin alt ve üst 
sınırlarını kaydediniz "sPRINTsPRINT 
3030 PRINT"(Şayet iki kere sıfır 
kaydederseniz, bilgisayar sınırları 
kendisi hesaplar.)"sPRINTsPRINT 

3040 PRINT CHR$(7)şsINPUT"alt sınır"şy 
minisPRINT 

3050 PRINT CHRS$(7)şsINPUT"üst sınır"şy 
maxisPRINT 

3060 IF y minizO0 AND ymaxizO0 THEN 

3070 ELSE IF ymaxi<symini THEN PRINT" 
hatalı kayıt "sPRINTsGOTO 3020 

3070 RETURN 

4000 REM 

4010 REM ##* Eksen sınırlarını hesap” 
layınız *#* 


4020 
4030 
4040 
4400 
4200 
4210 
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xfarksxmaxi-xmini 

xadım-639/xfark 

IF ymini<>0 OR ymaxi<>0 THEN 

ELSE flagzl 

REM 

REM **$* Kaydetmediyseniz, y-Eksen 


sınırlarını hesaplayınız 9##* 


4220 
ları 
4230 
-1 

4240 
4250 
4260 
4270 
4400 
4â10 
sını 
4420 
4430 
44â0 
4450 
4460 
4600 
4610 


LOCATE 10,13sPRINT'y-Eksen sınır 
hesaplanıyor " 
FOR xsxmini TO xmaxix STEP xadım” 


ysFN fonksiyon(x) 

IF y mini>y THEN yminiszy 

IF ymaxily THEN ymaxiszy 
NEXT Xx 

REM 

REM *** Koordinatın sıfır nokta- 
hesaplayınız *#* 
yfarksymaxi-ymini 
yadım-399/yfark 
xeksensxmini/-xfark*639 
yeksensymini/-yfark*399g 
CLSSORIGIN xeksen, yeksen 
REM 

REM *** Koordinat hatlarını 


çiziniz **1* 


4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 


MOVE xmini*xadım,0 

ORAY xmaxi*xadım,0 

MOVE O,ymini*yadım 

ORAY O,y maxi*yadım 
yminizINT(ymini*100040.5)/1000 
ymaxizINT(ymaxi*100040.5)/1000 
ykursörziINT((-yeksen*399)/1641) 
IF yeksen<0 THEN ykursörz-25 ELSE 


IF yeksen>399 THEN ykursörzl 


4700 


LOCATE 1,ykursörsPRINT INT(xmaxi* 


100040.5)/1000;ş 
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4710 LOCATE 80-LEN(STR$(INT(xmaxi*1000 
40.5)/1000)),ykursörsePRINT INT(xmaxi* 
100040.5)/1000ş 

4720 IF LEN(STR$(ymini)) LEN(STRS$(y 
maxi) THEN uzunlukzsLEN(STR$(ymini)) 
ELSE uzunlukzLEN(STR$(ymaxi)) 

4730 xkursörsiINT(xeksen/841)-uzunluk 
47â0 IF xkursör<l THEN xkursörzl 

ELSE IF xeksen5639 THEN xkursörz60- 
uzunluk 

4760 LOCATE xkursör,253PRINT yminiş 
4770 IF flagsl1 THEN yminizOsymaxis03 
f1ag-0 

4800 REM 

4810 REM *** fonksiyon grafiği veriniz 
.#* 

4820.ypozisyonsFN fonksiyon (xmini)* 
4830 IF ypozisyon>32767 THEN ypozisyon 
432767 ELSE IF ypozisyon<-32768 

THEN pozisyons-32768 

4840 MOVE xmini*txadım,ypozisyon 

4850 FOR xsxmini TO xmaxi STEP xadım” 
-1 

4860 ysFN fonksiyon(x) 

4870 ypozisyonzy*fyadım 

4880 IF ypozisyon<32768 AND ypozisyon 
>-32769 THEN DRAW x*xadım,ypozisyon 
4890 NEXT Xx 

4900 PRINT CHR$(7)ş 

4910 a$sINKEY$:3IF a$"”" THEN 4910 
4920 RETURN 


*00 Program ismi 

(110 Ön yükleme 

120 Fonksiyonun tarif edilmesi 

130 x ekseni için standart sınırların belirtilmesi 
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160'dan 

180'e kadar program isminin kaydedilmesi 
190'dan 

270'e kadar liste metninin basılması 


280 Arzu edilen ihtimalin soruşturulması 

290 Ekranın silinmesi ve arzu edilen alt programa geçiş 
300 Ekranın ve metinin silinmesi 

310 Soruşturma durumu 

320 Program sonu 


1000 Yeni bir fonksiyonun kaydı için alt program 
1020'den 

1050'ye kadar metnin baskısı ve programın sona ermesi 
1060 Listeye geri dönüş 


2000 x ekseni sınırlarının tespit edilmesi için alt program 
2020 Metnin basılması 

2030 Alt sınırların kaydedilmesi 

2040 Üst sınırların kaydedilmesi 

2050 Hatalı kayıt denemesi 

2060 Listeye geri dönüş 


3000 y ekseni sınırlarını tespit etmek için alt program 
3020'den 

3030'a kadar metnin basılması 

3040 Alt sınırların kaydedilmesi 

3050 Üst sınırların kaydedilmesi 

3060 Hatalı kayıt denemesi 

3070 Listeye geri dönüş 


4000 Fonksiyon grafiği verilmesi için alt program 

4020 x ekseni uzunluğunun hesaplanması 

4030 x birimi için adım büyüklüğünün hesaplanması 

4040 y eksen sınırlarının belirtilip belirtilmediği yada he- 
saplalanmasının gerekli olup olmadığının (flag-1) 
kontrolü 


4220 Metnin basılması 


4230 x eksen sınırları içersinde y'nin en küçük ve en bü- 
yük değerinin hesaplanması için döngü başlangıcı 
4240 y'nin hesaplanması , 
4250 y için en küçük değerin olup olmadığının denenmesi 
4260 y için en büyük değerin olup olmadığının denenmesi 
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4270 


4420 
4430 


4450 


4460 


4620 
4630 
4640 
4650 


4660 
4670 


4680 
4690 


4700 


4710 


4720: 


4730 
4740 


4750 
4760 


4770 


4820 
4830 


4840 


x ekseni sınırları içersinde y'nin en küçük ve en bü- 
yük değerinin hesaplanması için döngü sonu 


y ekseni uzunluğunun hesaplanması 

y birimi için adım büyüklüğünün hesaplanması 
Koordinat sıfır noktasının x-koordinatının hesaplan- 
ması 

Koordinat sıfır noktasının y-koordinatının hesaplan- 
ması 


Ekranın silinmesi ve koordinat sıfır noktasının yerleş- 
tirilmesi 


Grafik kursörünün pozisyon alması 
x ekseninin verilmesi 
Grafik kursörünün pozisyon alması 
y ekseninin verilmesi 


Alt y eksen sınırının yuvarlatılması 
Üst y eksen sınırının yuvarlatılması 


Kursörün dikey pozisyonunun hesaplanması 

x ekseni ekran dışına taşarsa, dikey kursör pozisyo- 
nunun düzeltilmesi 

Yuvarlatılan alt x ekseni sınırının ekranın sol kena- 
rında belirtilmesi 

Yuvarlatılan üst x ekseni sınırının ekranın sağ kena- 
rında belirtilmesi 


y eksen sınır metninin uzunluğunun hesaplanması 
Kursörün yatay pozisyonunun hesaplanması 

y eksen sınırları ekran dışına taşıyorsa kursörün ya- 
tay pozisyonunun düzeltilmesi 

Üst y eksen sınırlarının ekranın üst kenarında belir- 
tilmesi 

Alt y eksen sınırlarının ekranın alt kenarında belir- 
tilmesi 

y eksen sınırları hesaplanınca (flag-s1) geri yerleşti- 
rilmesi 


Alt x eksen sınırları için y koordinatının hesaplanması 
y koordinatının değeri integer alanında ise, hata ika- 
zından kaçınmak için y koordinatının düzeltilmesi 


Grafik kursörünün pozisyon alması 


129 


4850 Fonksiyon grafiğinin belirtilmesi için döngü başlangıcı 

4860 y'nin hesaplanması 

4870 y koordinatının hesaplanması 

4880 y koordinatının değeri integer alanı içinde ise grafik 
bölüm parçasının belirtilmesi 

4890 Fonksiyon grafiğinin belirtilmesi için döngü sonu 


4900 "READY" ikazı olarak sinyal sesi 


4910 Bir tuş basılıncaya kadar, tuşların soruşturulması 
4920 Listeye geri dönüş 


3.7 Soruşturma Programı 


100 REM *** SORUŞTURMA PROGRAMI *#* 
110 MODE 23CLEARsSRANDOMIZE TIME 

120 DIM veri$(1,1000),f1ag(1000) 
130 REM 

140 REM *#** Program listesi *** 

150 PRINT STRING$ (80,":") 

160 PRINT TAB(15)5"* *» sSORUŞ 
TURMA PROGRAMI . » *" 
170 PRINT STRING$(80," ") 

180 LOCATE 10,1S5:PRINT CHR$S(7)ş3PRINT 
"Bu program için bilgi ister misiniz 
(e/h) 7?" 

190 a$sINKEY$3IF a$-"e"THEN GOSUB 

10000 ELSE IF a$<>"h”" THEN 190 

200 MODE 1:PRINT"İster misinizse":PRINT 
sPRINT i 
210 PRINT"veri kaydediniz,"şTAB(30);ş"( 
1)"sPRINT 

220 PRINT"verileri tanzim ediniz,"s:sTAB 
(30)5"(2)":PRINT 

230 PRINT"verileri siliniz",şTAB(30); 
"(3)"2PRINT ! 
240 PRINT"verileri okuyunuz,"şTAB(30)ş 
"(A)"sPRINT 

250 PRINT"verileri okumayı tamamlayı- 
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nız,“şTAB(30)ş"(5)"sPRINT 

260 PRINT"soruşturuldu"şTAB(30)ş5"(6)"; 
PRINT 

270 PRINTsPRINT"bitsin mi?"şTAB(30);" 
(7)sPRINT CHRS$(7)ş 

280 a$sINKEY$sasVAL(a$)sIF a<l1 OR a>7? 
THEN 280 

290 MODE 2:1IF göstergez0 AND a<>1 

AND a<>4 AND a<>7 THEN LOCATE 20,13: 
PRINT"Hiçbir veri yoktur "sFOR laufsl 
TO 2000:<NEXT46G0TO0 200 

300 ON a GOSUB 1000,2000,3000,4000, 
5000,6000,310:6G0TO0 200 

310 LOCATE 25,13:PRINT"tekrar görüşmek 
üzere " 

320 END 

1000 REM 

1010 REM *** verilerin kaydedilmesi 
»*X 

1020 PRINT"Birbiriyle ilgili veri 
alanlarını daima arka arkaya kaydedin 
ki ekranda yanyana görülsünler." 

1030 PRINT"Bir veri çiftini kaydeder- 
ken yan ışıkla ENTER tuşuna basarsanız 
kayıt işlemi tekrarlanır." 

1040 PRINT"Şayet ENTER tuşuna iki kez 
basarsanız, veri kayıt işlemi sona 
erer."sPRINT 

1050 göstergezgöstergetl:sPRINT göster- 
ge 

1060 LOCATE 20,VP0S(x0)-1:PRINT CHR$( 
T)SSINPUT a$sLOCATE SO0,VPOS(40)-1: 


PRINT CHRS(7)ş:3INPUT b$ 
1070 IF a$<>"" AND b$<>"" THEN veri$(0 


gösterge)za$:veri$(l,gösterge)sb$:60T0 
1050 ELSE IF a$s>"" OR b$<>"" THEN 
1060 
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1080 göstergezgösterge-l 

2010 REM *##*# verilerin tanzim edilmesi 
LER 

2020 PRINT CHR$(7)ş3INPUT"Lütfen 
yanlış veri alanını kaydediniz"şyanlış 
$3PRINTSPRINT 

2030 FOR veri cümlesiz0 TO 1 

2040 FOR veri alanızl TO gösterge 

2050 THEN PRINT CHR$(7)şsINPUT"Düzelti 
lenveri alanı nasıldır"şdoğru$sPRINT: 
PRINTsveri$(veri cümlesi,veri alanı) 
doğru$:36G0TO0 2090 

2060 NEXT veri alanı 

2070 veri cümlesi 

2080 PRINT"veri alanı"şyanlış$ş"meuvcut 
değil " PRINTSPRINT 

2090 PRINT CHR$(7)şsPRINT”Üdiğer verile 
ri tanzim etmek istiyor musunuz (e/h) 
?"SPRINTSPRINT 

2100 a$sINKEY$sIF a$-"e" THEN 2000 
ELSE 

IF a$<>"n" THEN 2100 

2110 RETURN 

3000 REM 

3010 REM *#$* verilerin silinmesi **#* 
3020 PRINT CHR$(7)şsPRINT"Lütfen silin 
mesi gereken veri çiftini virgül 

ile ayırarak kaydediniz " 

3030 INPUT a$,b$:PRINTSPRINT 

3040 FOR veri alanızl T0 gösterge 

3050 IF veri$(O,veri alanı)sa$ AND 
veri$(1,veri alanı)sb$ OR veri$(0O,veri 
alanı)sb$ AND veri$(l,veri alanı)sa$ 
THEN 3080 

3060 NEXT veri alanı 

3W0 PRINT"veri çifti"şa$ş", "b$ş "mev 
cut değil ":60TO0 3150 
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3080 FOR laufsveri alanı TOzgösterge»l 
3090 veri$(l,veri alanı)zveri$(0O,veri 
alanısl) 

3100 veri$(l1i,veri alanı)zveri(l,veri 
alanıtl) 

3110 NEXT l1auf 

3120 göstergezgösterge-l 

3130 PRINT"veri çifti"şa$ş", "şb$ş" 
silinmiştir " 

3140 IF gösterges0 THEN FOR wartenszl 
TO 2000:NEXT wartensG0OTO 3170 

3150 PRINT CHR$(7)ş:2PRINTSPRINTSPRINT" 
Diğer veri çiftlerini silmek ister mi 
siniz (e/h) ?"sPRINT:PRINT 

3160 a$sINKEY$:sIF a$-"e" THEN 3000 
ELSE IF a$ "h" THEN 3160 

3170 RETURN 

4000 REM 

4010 REM *#** Verilerin okunması *** 
4020 PRINT CHRS$(7)şsINPUT"Okunması 
gereken verinin ismi nasıldır"ş isim$s 
isimsUPPER$(isim$)sPRINT 

4030 PRINT"Kaseti okunması gereken 
verinin başına kadar sarınız. 

"SPRINT 

4040 OPENİIN isim$ 

4050 INPUT#9,gösterge 

4060 FOR veri cümlesizO0 TO 1 

4070 FOR veri alanız0 T0 gösterge 
4080 INPUT$#9,veri$(veri cümlesi,veri 
alanı) 

4090 NEXT veri alanı 

4100 NEXT veri cümlesi 

4110 CLOSETIN 

4120 RETURN 

5000 REM 

5010 REM *** Verilerin okunup bitiril 
mesi *** 
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5020 isim$sSTRING$(16,” ")sPRINT CHR$( 
?)şsINPUT"Okunması gereken verinin 
ismi nasıldır"şisim$sPRINT 

5030 PRINT"Kaset üzerinde veri için 
boş bir yer arayınız."sPRINT 

5040 OPENDUT isim$ 

5050 PRINTx9,gösterge 

5060 FOR veri cümlesiz0 T0 1 

5070 FOR veri alanıs0 T0 gösterge 

5080 PRINT#S,veri$(veri cümlesi, veri 
alanı) 

5090 NEXT veri alanı 

5100 NEXT veri cümlesi 

5110 CLOSEDUT 

5120 RETURN 

6000 REM 

6010 REM **#* verilerin soruşturulması 
“.x 

6030 PRINT CHR$(7)şsINPUT"Birinci mi 
yoksa ikinci veri cümlesi mi soruştu 
rulmalıdır (1/2) "şseçimsseçim-2-seçim 
1-2-seçimsPRINTS<PRINT 

6030 PRINT CHR$(7)ş3INPUT"Genelde ne 
kadar soruşturmalısınız"şmiktarsPRINT: 
PRINT 

6040 FOR soruşturmazl TO miktar 

6050 rastgelesINT(RND*göstergetl)s1IF 
flag(rastgele)s1 THEN 6050 ELSE flag 
(rastgele)z1 

6060 PRINTePRINT soruşturmaşTAB(20)şve 
ri$(seçme,tesadüf)ş:3L0CATE 6O0,VP0S(#0) 
sPRINT CHR$(7)şsINPUT cevap$ 

6070 IF cevap$-”” THEN cevap$serror” 
6080 IF cevap$sveri$(1-seçme,rastgele) 
THEN PRINT"doğru ”:46G0TO 61190 

6090 hatazhataslsPRINT"”Bu maalesef 
yanlıştır " 
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6100 PRINT"Doğru cevaps"şveri$(1-seçme 
,rastgele) 

6110 IF soruşturma/göstergeziINi(soruş 
turma/gösterge) THEN GOSUB 20000 

6120 NEXT soruşturma 

6130 PRINTsSPRINTSPRINT"Siz burada"ş 
miktarş'"soruşturma"şhataş" çözümü 
bilmiyorsunuz " 

6140 GOSUB 200003FOR wartensl T0 2000: 
NEXT warten 

6150 RETURN 

10000 REM 

10010 REM *** Kullanıcı bilgi için bil 
gi alt programı *** 

1020 LOCATE 1,10:PRINT"Bu programı 
öğrenme esnasında kuvvetlendirebilirsi 
niz " 

10030 PRINT"Birbirleri ile belirli bir 
ilişkide bulunan iki veri cümlesinin 
alanını belirtmek ve siz de diğer veri 
cümlesininilgili alanını kaydetmek 
suretiyle, bilgisayar sizi soruşturur. 


"SPRİNT 
10040 PRINT"Veri cümlelerinde değişik 


dillerin kelimeleri, yabancı kelimeler 
ve onların tarifleri, şekilleri, 
ve onların işaretleri, yıl sayıları ve 
tarihi olaylar vs. söz konusudur." 
PRINT 

10050 PRINT"Verilerinizi her defasında 
tekrar programın başına kaydetmemeniz 
için, veri cümlelerini banda tamamen 
okuyunuz ve daha sonra aynı şekilde 
tekrar okuyabilirsiniz"sPRINT 

10060 PRINT"Hepsini okumuş iseniz, lüt 
fen ENTER tuşuna basınız “sPRINT CHR$( 
7)5 
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10070 a$sINKEY$sIF a$ CHR$(13) THEN 
10070 ELSE RETURN 

20000 REM 

20010 REM *** Bütün soruşturma pozis 
yonlarının silinmesi *** 

20020 FOR indexzl TO gösterge 

20030 flag(index)-0 

20040 NEXT index 

20050 RETURN 


100 Program ismi 

110 Ön yükleme 

120 Veri matrislerinin dimensiyonu 

150'den 

170'e kadar program isminin verilmesi 

180 Metin baskısı 

190 Kullanıcının soruşturulması, "Kullanıcı için bilgi" alt 
programının muhtemelen çağrılması 

200'den 

270'e kadar-liste metninin verilmesi 


280 Arzu edilen fonksiyonun soruşturulması 

290 Fonksiyonun çağrılması hatalı veriden dolayı geçersiz 
olunca, liste metninin verilmesi tekrarlanır 

300 Arzu edilen alt programlar 

310 Metin basımı 

320 Program sonu 


1000 Verilerin kaydedilmesi için alt sistem 
1020'den 
1040'a kadar metin basımı 


1050 Veri göstergesinin bir yükseltilmesi ve göstergenin 
verilmesi 

1060 Veri çiftinin kaydedilmesi 

1070 Kayıt işleminin kontrolü, diğer muhtemel kayıılar 
yada yeni kayıtlar 

1080 Göstergenin bir indirgenmesi ile veri göstergesinin 
düzeltilmesi 

1090 Listeye geri dönüş 


2000 Verilerin tasnifi için alt sistem 
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2020 Yanlış veri alanının kaydedilmesi 


2030 Veri cümlelerinin çevrimi için döngü başlangıcı 

2040 Veri alanlarının çevrimi için döngü başlangıcı 

2050 Yanlış veri alanının bulunması anında: 
Doğru alanın kaydedilmesi ve yanlış alanın yerine 
geçmesi 
Döngüden çıkış 

2060 Veri alanının çevrimi için döngü sonu 

2070 Veri cümlelerinin çevrimi için döngü sonu 


2080 Arama döngüsünün başarısız sonuçlanması halinde 
metin basımı ve bir sonraki program satırına atlama 


2090 Metin basımı 
2100 Soruşturma programı 
2110 Listeye geri dönüş 


3000 Verilerin silinmesi için alt program 

3020 Metin basımı 

3030 Silinmesi gereken veri çiftinin kaydedilmesi 

3040 Veri alanının çevrimi için döngü başlangıcı 

3050 Silinmesi gereken veri çiftinin bulunması anında: 
Döngüden çıkış 

3060 Veri alanının çevrimi için döngü sonu 

3070 Arama döngüsünün başarısız sonuçlanması halinde 
metin basımı ve daha sonraki döngüye atlama 


3080 Veri çiftinin silinmesi gereken veri çiftinin yerine 
geçmesi için döngü başlangıcı 

3090'dan 

3100'e kadar veri çiftinin yerleşmesi 

3110 Veri çiftinin silinmesi gereken veri çiftinin yerine 
geçmesi için döngü sonu 


3120 Göstergenin bir indirgenmesi ile veri göstergesinin 
düzeltilmesi 

3130 Metin basımı 

3140 Son veri çifti silinince alt programın sona ermesi 

3150 Metin basımı 

3160 Soruşturma durumu 

3170 Listeye geri, dönüş 


4000 Verilerin ökunması için alt program 
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4020 Veri isminin kaydedilmesi 
4030 Metin basımı 

4040 Okuma verisinin açılması 
4050 Veri göstergesinin okunması 


4060 Veri cümlelerinin okunması için döngü başlangıcı 
4070 Veri alanlarının okunması için döngü başlangıcı 
4080 Bir veri alanının okunması 

4090 Veri alanlarının okunması için döngü sonu 

4100 Veri cümlelerinin okunması için döngü sonu 


419 Okuma verisinin kapatılması 

4120 Listeye geri dönüs 

5000 Verilerin okutulup bitirilmesi için alt program 
5020 Veri isminin kaydedilmesi 

5030 Metin basımı 


5040 Okutma verisinin açılması 
5050 Veri göstergesinin okutulması 


5060 Veri cümlelerinin okunup bi'irilmesi için döngü baş- 
langıcı 

5070 Veri alanlarının okunup bitirilmesi için döngü başlan- 
gıcı 

5080 Bir veri alanının okutulması 

5090 Veri alanının okunup bitirilmesi için döngü sonu 

5100 Veri cümlelerinin okunup bitirilmesi için döngü sonu 


5120 Okutma verisinin kapatılması 
5120 Listeye geri dönüş 


6000 Verilerin soruşturulması için alt program 
6020 Soruşturulması gereken veri cümlesinin kaydedilmesi 
6030 Soruşturma sayısının kaydedilmesi 


6040 Verilerin soruşturulması için döngü başlangıcı 

6050 Rastgele sayının üretilmesi ve sayının soruşturulup 
soruşturulmadığının kontrolü (flagz1) 

6060 Veri alanının soruşturulması ve kaydedilmesi 

6070 Boş kayıt durumunda düzeltme işlemi 

6080'den 

6100'e kadar veriler veri alanının kontrolü ve metin basımı 


€110 Bütün veri alanları tam bir kez soruşturulduğunda, 
"Bütün soruşturma pozisyonlarının silinmesi" alı prog- 
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ramının çağrılması 
6120 Verilerin soruşturulması için döngü sonu 


6130 Hata sayısının verilmesi 

6140 "Bütün soruşturma pozisyonlarının silinmesi" alt prog- 
ramının çağrılması ve bekleme döngüsü 

6150 Listeye geri dönüş 

10000 Kullanıcı için bilgi alt programı 

10020'den 

10060'a kadar metin basımı 

10070 ENTER tuşuna basmak suretiyle listeye geri dönüş 


20000 Bütün soruşturma pozisyonlarının silinmesi için alt 
program 

20020 Bütün soruşturma pozisyonlarının çevrimi için döngü 
başlangıcı 

20030 Bir pozisyonun silinmesi (flag-0) 

20040 Bütün soruşturma pozisyonlarının çevrimi için döngü 
sonu 


20050 Verilerin soruşturulması alt programına geri dönüş 


3.8 Adres Yönetimi 


100 REM *** ADRES YÖNETİMİ #*#* 

110 CLEAR 

120 maxiz-100 

130 DIM hitap$(maxi), ilkadı$(maxi), 
adı$(maxi),cadde$(maxi),numara$(maxi) 
posta kutusu$,posta kodu$(maxi),yer$( 
maxi),kod numarası$(maxi),telefon$( 
maxi) 

140 REM 

150 REM **#* Program Listesi *** 

160 m0D 2 

170 PRINT STRING$(80" ") 

180 PRINT TAB(15);5”* * #* ADRES 
YÖNETİMİ * s #" 

190 PRINT STRING$(80" ") 

200 PRINTsSPRINT 
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210 PRINT"Adresi kaydediniz"şTAB(30);”" 
(1)“3PRINT 

220 PRINT"Adresi tanzim ediniz"şTAB(30 
)ş "(2)": PRINT 

230 PRINT"Adresi siliniz"şTAB(30)ş"”(3) 

"SPRİNT 

240 PRINT"Adresi okuyunuz"şTAB(30)ş"(5 
)“ePRINT 

250 PRINT"Adresi tamamlayınız"şTAB(30) 
(â)"sPRINT 

260 PRINT"Adresi basınız"şTAB(30)ş”(6) 

"SPRINT 

270 PRINT n,"Programı bitiriniz";şTAB(3 

0)5"(70)"sPRINTSPRINT 

280 PRINT CHR$(7)ş3PRINT"Arzu edilen 
fonksiyonun numarasını kaydediniz " 
290 a$sINKEY$sazVAL(a$)sIF a<1 OR 
a>7 THEN 290 

300 IF gösterges0 AND a<>4 AND a<>7 
THEN CLSsLOCATE 20,13:PRINT"Bir adres 
vardır "sFOR bekleyinizsl TO 2000:NEXT 
bekleyinizs60T0 140 

310 ON a G0SUB 1000,2000,3000,4000,500 
0,6000320:6G0T0 140 

320 CLSsLOCATE 25,13:PRINT"Görüşmek 
üzere " 

330 END 

1000 REM 

1010 REM *** Adres kaydı *9** 

1020 CLSsPRINT"Şimdi adresi kaydediniz 
Li 


1030 PRINT"bir noktayı beyan etmezseni 
z ya da beyan etmek istemezseniz, 
kayıt yapmaksızın sadece ENTER tuşuna 
basınız" 

1040 göstergezgöstergetlsindexsgöster 


ge 
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1050 GO0SUB 10000 

1060 PRINT CHR$(7)ş:PRINT"diğer bir 
adresi istiyor musunuz (e/h)7" 

1070 a$sINKEY$SIF a$s",” THEN 10000ELSE 
IF â$<>”h” THEN 1070 

1080 RETURN 

2000 REM 

2010 REM *** Adres tanzimi *#*84 

2020 CLSs$PRINT CHRS$(7)ş:sINPUT"Adresi 
değişen şahsın ismi nedir (ilk adı, 
soyadı)"şilk adı$,adı$sPRINTSPRINT 
2030 FOR indexsl TO gösterge 

2040 IF ilk adı$silk adı$(index) AND 
adı$zadı$(index) THEN 2070 

2050 NEXT index 

2060 PRINT"Adreste"ilk adı$ş""şadı$"me 
vcut değildir "460TO0 2090 

2070 PRINT"Adresde "ilk adış" "adı$" 
şöyledir:":6G0SYB 10000 

2080 PRINT CHR"“Şimdi değişen adresi ka 
ydediniz.":G0SUB 10000 

2090 PRINT CHR$(7)ş:3PRINT:GPRINT"Diğer 
adresi değiştiriniz (e/h)7" 

2100 a$sINKEY$:31IF a$-x"e" THEN 2000 
ELSE IF a$ "h" THEN 2100 

2110 RETURN 

3000 REM 

3010 REM *** Adresin okunması *##* 

3020 CLS:3PRINT CHR$(7)şsINPUT"Adresi 
silinen sahsın adı nedir (ilk adı, 
soyadı)"şilk adı$,adı$sPRINTSPRINT 
3030 FOR indexsl1l TO gösterge 

3040 IF ilk adı$silk adı$(index) AND 
adı$sadı$(index) THEN 3070 

3050 NEXT index | 

3060 PRINT"Adreste "ilk adı$ş" "adı$" 
mevcut değildir ":60TO "3220 

3070 FOR laufsindex TO gösterge-l 
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3080 hitap$(lauf)shitap(laufıl) 

3090 ilk adı$(lauf)zilk adı$(laufsl) 
3100 adı$(lauf)sadı$(laufı1l) 

3110 cadde$(lauf)zcadde$(lauft1l) 

3120 numara$(lauf)znumara$(laufs4l) 
3130 posta kutusu$(lauf)sposta kutusu$ 
(laufr1l) 

3140 posta kodu$(lauf)sposta kodu$(la 
ufel) 

3150 yer$(lauf)zyer$(lauftl) 

3160 telefon eiduaiae pakete dn kodu$ 
(Jaufsl) 

3170 telefon$(lauf)stelefon$(lauf41l) 
3180 NEXT lauf 

3190 göstergesgösterge-l 

3200 PRINT"Adreste "ilk adı$ş" "şadı$ 
silindi " 

3210 IF gösterges0 THEN FOR laufz1 TO 
2000:sNEXTsG0TO 3240 

3220 PRINT CHR$(7)şsPRINTsPRINT"diğer 
adresleri siliniz (e/h) 2?" 

3230 a$sINKEYSIF a$-"a" THEN 3000 ELSE 
IF a$ <>"h" THEN 3230 

3240 RETURN 

4000 REM 

4010 REM *** Adresin okunması **#* 

4020 CLSs£PRINT CHRS$(7)ş:PRINT"Kaseti 
okunan adresin başlangıcına kadar sarı 
nız."PRINT 

4030 OPENİN "ADRES" 

4040 INPUT#9,gösterge 

4050 FOR indexsl TO gösterge 

4060 INPUT#9,hitap$(index) 

4070 INPUT#9,ilk adı$(index) 

4080 INPUT#9,adı$(index) 

4090 INPUT#9,cadde$(index) 

4100 INPUT#9,numara$(index) 

4110 INPUT#9,posta kutusu$(index) 
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4120 
4130 


4140 
4150 


4160 
4170 
4180 
5000 
5010 
5020 


INPUT#9,posta kodu 
INPUT#9,yer$(index) 


INPUT#9,telefon kodu(index, 
INPUT#9;ştelefon$(index) 


NEXT index 

CLOSEIN 

RETURN 

REM 

REM ***# Adresin tamamlanması *** 
CLS3PRINT CHR$(7)ş:3PRINT"Kasette 


adres için boş yer arayınız."sPRINT 


5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
6000 
601” 
6020 


OPENOUT "ADRES" 
PRINTR9,gösterge 

FOR indexzl TO gösterge 
PRINT#9,hitap$(index) 
PRINT#9,ilk adı$(index) 
PRINT#9,adı$(index) 
PRINT#9,cadde$(index) 
PRINT#9,numara$(index) 
PRINT£9,posta kutusu$(index) 
PRINT49,posta kodu$(index) 
PRINT#9,yer$(index) 
PRINT#9,telefon kodu$(index) 
PRINT#9,telefon$(index) 

NEXT index 

CLOSEOUT 

RETURN 

REM 

REM *** Adres beyanı *#** 

MOD 2:sPRINT"Hangi fonksiyonu iste 


siniz 2"esPRINTSPRINTS:PRINT 


6030 


PRINT"”Bütün adresleri ekrana bası 


nız"şTAB(60)ş5”(1)"sPRINT 


6040 


PRINT"Bütün adresleri taksim edi 


niz"şTAB(60)ş"(2)"şPRINT 


6050 


PRINT"Seçilmiş adresleri ekrana 


ekrana basınız"şTAB(60)ş”(3)sPRINT 
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6060 PRINT"Seçilmiş adresleri taksim 
ediniz"şTAB(60)ş"a":PRINT 

6070 PRINT"Bir adresi ekrana basınız"; 
TAB(60)ş”"(5)sPRINT 

6080 PRINI" bir adresi taksim ediniz"; 
TAB(60)ş"(6)":PRINT:PRINT:PRINT 

6090 PRINT CHRS$(7)şs3PRINT"İstenilen nu 
marayı kaydediniz" 

6100 aXsINKEY$sazVAL(a$)sIF aa OR>a 6 
THEN 6100 i 

6110 MODE 1sIF a/2INT(a/2) THEN n8 
6120 ON a GOSUB 7000, 7000,8000,8000,90 
00,900 

6130 ns0PRINT"Diğer beyanları istiyorm 
usunuz? (e/h)" 

6140 a$sINKEY$: IF a$-"e" THEN 6000 EL 
SE IF a$ <>Xh” THEN 6140 

6150 RETURN 

7000 REM 

7010 REM *** Diğer adreslerin beyanı**#* 
7020 FOR indexzl TO gösterge 

7030 G0SUB 20000 

7040 NEXT index 

7050 RETURN 

8000 REM 

8010 REM *** Seçilen adreslerin beyanı 
#4 

8020 PRINT CHR$(7)şsPRINT" sabit bir s 
oyad veya oturduğu yerin adresi basılı 
yor mu?'N' veya'Uu' yi kaydediniz": PRI 
NT: PRINT 

8030 a$sINKEY$sa$sUPPER$(a$)3IF a$z"y" 
THEN 8090 ELSE IF a$ <>"N" THEN 8030 
8050 For indexsl TO gösterge 

8060 IF adı$sadı$(index) THEN GOSUB 20 
000:a$-"bulundu" 
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8070 NEXT index 

8080 6G0TO0 8130 

8090 PRINT CHR$(7)şsINPUT "bulunması 
gereken ikamet yerinin adı nedir"şyer$ 
8100 FOR indexzl T0 gösterge 

8110 IF yer$syer$(index) THEN GOSUB 
20000:3a$x"bulundu" 

8120 NEXT index 

8130 a$ <>"bulundu"THEN PRINTsSPRINTSPRI 
NT" hiçbir adres mevcut değildir"sPRIN 
T 

8140 RETURN 

9000 REM 

9010 REM *** Bir Adresin Basılması *** 
9020 PRINT CHR$(7)şsINPUT"Adresi veril 
mesi gereken şahsın ismi nedir (ön isi 
m,soyad)'"şön isim$,isim$sPRINTsSPRINT 
9030 FOR indexsl TO gösterge 

9040 IF ön isim$sön isim$(index)AND is 
im$sisim$(index) THEN GOSUB 20000:6G0TO 
9070 

9050 NEXT index 

9060 PRINT"Adres"ön isim$ş" "şisim$:PR 
INT "mevcut değil":PRINT 

9070 RETURN 

10000 REM 

10010 REM ***Bir adresin kaydedilmesi 
.. 

10020 PLRINTS<PRINT 

10030 PRINT CHR$(7)şsINPUT"Hitap"şhita 
p$(index) 

10040 PRINT CHRS$(7)şsINPUTön isim"şön 
isim$(index) 

1050 PRINT CHR$(7)şsINPUT "soyad'"şsoya 
$(index) 

10060 PRINT CHRS$(7)şsINPUT"cadde 


145 


"scadde$(index) 

10070 PRINT CHR$(7)şsINPUT"Ev numarası 

"snumara$(index) 

10080 PRINT CHR$(7)şsINPUT "Posta Kutu 

su"şposta kutusu$(index) 

10090 PRINT CHR$(7)şs3INPUT "Posta kodu 
$posta kodu$(index) 

10100 PRINT CHR$(7)şsINPUT"ikamet yeri 

"syer$(index) 

10110 PRINT CHR$(7)şs3INPUT" Telefon ko 

du"şkod$(index) 

10120 PRINT CHR$(7)ş:3INPUT "Telefon nu 

marası"ştelefon$(index) 

10130 PRINTS:PRINT 

10140 RETURN 

20000 REM - 

20010 REM *** Bir adresin verilmesi*!** 
20020 PRINT# n j 

20030 IF hitap$(index)<>" " THEN PRINT 
en,hitap$(index) 

20040 IF ön isim$(index)<>" "“ THEN PRI 

NT#n,ön isim$(index)ş" ";ş 

20050 IF isim$(index)<>" "THEN PRINT#nN 

n,nisim$(index) 

20060 IF cadde$(index)<>" "* THEN PRINT 
#n,cadde$(index);" "; 

20070 IF numara$(index)<>" " THEN PRIN 

T#n,numara$(index) 

20080 IF posta kutusu$(lindex)<>" " THE 

N PRINTgn,"posta kutusu"'şposta kutusu$ 
(index) 


29090 IF kod numarası$(index)<>" " THE 
N PRINTAn,kod numarası$(index)ş" ";ş 
20100 IF yer$(index)<>" “THEN PRINT$n, 
yer$(index) 

20110 IF kod$(index)<>" " THEN PRINTE. 
n,Tel("“şkodX(index)31)";ş 

20120 IF telefon$(index)<>" " THEN PRI 
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NT# n,telefon$(index) 
20130 PRINT$#n 
20140 RETURN 


100 Program ismi 

110 Ön yükleme 

120 Adres kapasitesinin belirtilmesi 

130 Bilgi matrislerinin boyutlandırılması 
170'den 

190'a kadar program isminin verilmesi 
200'den 

280'e kadar ana liste metninin verilmesi 


290 Arzu edilen fonksiyonun soruşturulması 

300 Fonksiyonun çağrılması yanlış adreslerden dolayı mak- 
sada uymadığında, ana liste metninin yeniden verilişi 

310 Arzu edilen alt programın belirlenmesi 

320 Metin basımı 

330 Program sonu 


1000 Adreslerin kaydedilmesi için alt program 

1020'den 

1030'a kadar metin basımı 

1040 Adres göstergesinin bir yükseltilmesi ve alt program 
değişkenleri için bilgi göstergesinin belirtilmesi 

1050 Adreslerin kaydedilmesi 

1060 Metin basımı 

1070 Soruşturma durumu 

1080 Ana listeye geri dönüş 


2000 Adreslerin tanzim edilmesi için alt program 

2020 Adresi değişmesi gereken şahsın isminin kaydedilmesi 

2030 Adreslerin gecisi için döngü başlangıcı 

2040 Değiştirilmesi gereken adres bulununca: döngüden çıkış 

2050 Adreslerin geçişi için döngü sonu 

2060 Arama döngüsünün başarısız sonuçlanması durumunda 
metin basımı ve bir sonraki program satırlarına at- 
lama . 

2070 Değiştirilmesi gereken adresin verilmesi 

2080 Değişen adresin kaydedilmesi 

2090 Metin basımı 

2100 Soruşturma durumu 

2110 Ana listeye geri dönüş 
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3000 adreslerin silinmesi için alt sistem 
3020 Adresi silinmesi gereken şahsın isminin kaydedilmesi 


3030 Adreslerin geçişi için döngü başlangıcı 
3040 Silinmesi gereken adres bulununca: döngüden çıkış 
3050 Adreslerin geçişi için döngü sonu 


3060 Arama döngüsünün başarısız sonuçlanması durumunda 
metin basımı ve daha sonraki döngüye atlama 


3070 Silinmesi gereken adresin yerine adreslerin yerleşti- 
rilmesi için döngü başlangıcı 

3080'den 

3170'e kadar adreslerin yerleştirilmesi 

3180 Silinmesi gereken adresin yerine adreslerin yerleşti— 
rilmesi için döngü sonu 


3190 Göstergenin bir indirgenmesi ile adres göstergesinin 
düzeltilmesi 

3200 Metin basımı 

3210 Son adres silinince alt programın sona ermesi 

3220 Metin basımı 

3230 Soruşturma durumu 

3240 Ana listeye geri dönüs 

4000 Adreslerin okunması için alt program 

4020 Metin basımı 


4030 Okuma verisinin açılması 
4040 Adres göstergesinin okunması 


4050 Adreslerin okunması için döngü başlangıcı 
4060'dan 

4150'ye kadar adreslerin okunması 

4160 adreslerin okunması için döngü sonu 


4170 Okuma verisinin kapatılması 
4180 Ana listeye geri dönüş 


5000 adreslerin okunup bitirilmesi için alt program 
5020 Metin basımı 


5030 Okutma verisinin açılması 
5040 Adres göstergesinin okunup bitirilmesi 


5050 Adreslerin okunup bitirilmesi için alt program 
5060'dan 
5150'ye kadar adreslerin okunup bitirilmesi 
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5160 Adreslerin okunup bitirilmesi için döngü sonu 


5170 Okutma verisinin kapatılması 
5180 Ana listeye geri dönüş 


6000 adreslerin verilmesi için alt program 
6020'den 


6090" 


6100 
6110 
6120 
6130 
6140 
6150 


7000 
7020 
7030 
7040 


7050 


8000 
8020 
8030 
8040 


8050 
3060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 


8140 


9000 
9020 


a kadar liste metninın verilmesi 


arzu edilen fonksiyonun soruşturulması 
Verme biriminin belirtilmesi 

arzu edilen alı programın belirlenmesi 
Metin basımı 

Soruşturma durumu 

Ana listeye geri dönüş 


Bütün adreslerin basılması için alt program 
Adreslerin basılması için döngü başlangıcı 
Bir adresin basılması 

Adreslerin basılması için döngü sonu 


Listeye geri dönüş 


Seçilen adresin basılması için alt program 

Metin basımı 

Soruşturma durumu 

Soyadının kaydedilmesi 

adreslerin geçişi için döngü başlangıcı 

Aranan adresin bulunması durumunda: adresin basıl- 
ması 

Adreslerin geçişi için döngü sonu 


Bir sonraki döngüye atlama 
Oturma yerinin kaydedilmesi 


Adreslerin geçişi için döngü başlangıcı 

Aranan adresin bulunması durumunda: adresin basıl- 
ması 

Adreslerin geçişi için döngü sonu 


Arama döngüsünün başarısız sonuçlanması halinde 
metin basımı 
Listeye geri dönüş 


Bir adresin basılması için alt program 
Adresi basılması gereken şahsın isminin kaydedilmesi 
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9030 Adreslerin geçişi için döngü başlangıcı 

9040 Aranan adresin bulunması halinde: 
Adresin basılması ve döngüden atlama 

9050 Adreslerin geçişi için döngü sonu 


9060 Arama döngüsünün başarısız sonuçlanması halinde 
metin basımı 
9070 Listeye geri dönüş 


10000 Bir adresin kaydedilmesi için alt program 
10020'den 

10130'a kadar bir adresin kaydedilmesi 

10140 Ana programa geri dönüş 


20000 Bir adresin verilmesi için alt program 

20020'den 

20130'a kadar bir adresin mevcut bütün kısımlarının veril- 
mesi 

20140 Ana programa geri dönüş 


3.9 Sıralama Programları (Yordamları) 


Yüksek bir bilgi işleme hızına sahip olduğu için, bü- 
yük bilgi yığınlarının sıralanmasında bilgisayar oldukça uy- 
gundur. 


Bu güne kadar sayıların bilgisayarla düzenlenmesi 
için yüzlerce metod bulunmuştur. Bu bölümde bunlardan üç 
eski ve kısa metod anlatılacaktır. 


Bu üç program da "alan" sayı alanını "sayı" değerle- 
ri ile sayıların büyüklüğüne göre tasnif eder, öyle ki son- 
daki en küçük sayı başta, en büyük sayı ise alanın son 
pozisyonunda bulunur. 


En basit tasnif algoritması, isminden de anlaşılacağı 
gibi, EASY-SORT'dur. 


10 REM **#* EASY SORT! #* 

20 FOR laufs1 TO sayı 

30 minumumzlEs38spositionzÜU 

40 FOR indexzlauf TO sayı 

50 minumum>alan(index) THEN minumumz-a” 
an(index)sPositionsindex 
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60 NEXT index 

70 değişimzsalan(lauf):alan(lauf)zsalan 
(position)salan(position)zdeğişim 

80 NEXT lauf 


"Lauf" değişkenli dış döngü, "index" değişkenli iç 
döngünün her çevrimden sonra sayı "alan"ının daha önce 
çalışmasını sağlayan bir pozisyonla ilgilenir. Bu şekilde iç 
döngünün sıralama sayılarına dokunulmaz. 


İç döngü başlamadan önce, bu döngünün değişkenleri- 
ne ön yükleme yapılır. "Minimum" değişkenine en yüksek 
değer verilir ve "pozisyon" değişkeni sıfıra getirilir. 

Bununla iç döngü, aktüel "index" değişkeniyle ifade 
edilen alan pozisyonunun şimdiye kadar oluşan en küçük 
değeri içerip içermediğini kontrol eder. Durum böyle ise 
"minimum" değişkeninin değeri ve "pozisyon" değişkeninin 
durumu koordine edilir. 

İç döngü sona erdiğinde, son çevrimdeki iç döngü ta- 
rafından yakalanan alanın ilk elemanı, en küçük değeri 
içeren alanın elemanıyla değiştirilir. Bu şekilde alan baş- 
langıcına en küçük sayı rastlar ve alanın sonuna en büyük 


değer sıkıştırılır. Dış döngü tamamen çevrildiğinde, sayı 
"alan"ı sıralanır. 


Daha sonraki sıralama metodu BUBBLE-SORT denilen 
metoddur. 


10 REM *** BUBBLE SORT ##* 

20 FOR lauf-2 TO sayı 

30 FOR indexzssayı TO lauf STEP-I 

40 IF alan(index-l1)>alan(index) THEN d 
eğişimzalan(index)salan(index)salan(in 
dex-1)salan(index-1)zsdeğişim 

50 NLEXT 

50 NEXT index 

60 NEXT lauf 
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İç ve dış döngü tekrar oluşur. Bu kez dış döngü, sa- 
yı "alan"ının arkasında çalışan iç döngünün her çevrimde, 
daha önceki çevrimi sona erdiren pozisyonla ilgilenir. Böy- 
lece devamlı çalışma alanının sıralı elemanları iç döngüyle 
kapalı bırakılır. 


İç döngüde, alanın geçen durumunun değerinin "index" 
değişkeniyle anlatılan aktüel durumunun değerinden daha 
büyük olup olmadığı gözden geçirilir. Bu karşılaştırma 
olumlu (pozitif) ise, her iki eleman karşılıklı değiştirilir. 


Böylece iç döngünün her çevrimiyle alan başlangıcına 
küçük bir sayı rastlar. Bu sayı kesin pozisyonunu alır, bu 
da 3UBBLE-SORT'tur. 


İç ve dış döngü sona erdiğinde sayı "alan"ı komple 
sıralanır. Son sıralama metodu RIPPLE-SORT'tur. 


110 REM **#* RIPPLE SORT ##* 

20 flaf-0 

30 FOR indexsl TO sayı-l 

40 IF alan(index)>alan(indexrl1) THEN 
değişimsalan(index)salan(indexsl)salan 
(indextl)sdeğişim:sflagzl 

50 NEXT index 

60 IF flagsl THEN 20 


Bu sıralama programının başlangıcında "flag" göster- 
gesi sıfıra getirilir. Böylece ortak sayı "alan"ını çeviren 
döngü başlar. 


"index" değişkeniyle saptanan alan pozisyonunun de- 
ğeri, takip eden durumun değerinden daha büyük ise, her 
iki eleman birbiriyle değiştirilir ve "flag" göstergesi bire 
getirilir. 


Döngü sona erdikten sonra, sayı değişiminin yani 
"flag" göstergesinin oluşup oluşmadığı kontrol edilir. 
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Değişim oluştuğunda döngü yinelenir. Komşularıyla 
değiştirilmesi gereken elemanlar yeniden aranır. 


Sıralama döngüsünün çalışması uzun sürede tamam- 
landığında, komple döngü çevrimi tek bir değişim olmaksı- 
zın başarılı ve sayı "alanı tamamıyla sıralanır. 


Bir sıralama programının hızı onun en önemli başarı 
kriteridir. Bu yüzden, rastgele dokuz rakamlı yüz değerden 
oluşan sayı "alan'"'ının sıralaması için üç programın karşı- 
lıklı durumu izlenir. 


EASY-SORT: 27,5 saniye 
“BUBBLE-SORT: 60-65 saniye 
RIPPLE-SORT: 90-110 saniye 


Gördüğünüz gibi EASY-SORT yalnızca basit değil bi- 
lâkis aralıklı en hızlı metod'dur. Her şeyden önce bu sa- 
dece küçük, sıralamasız alanlar için geçerlidir. 


EASY-SORT sürekli olarak toplam alanları birbiriyle 
karşılaştırır, bu yüzden lauf süreci de kısmen özenle açık- 
lanır. 


Diğer her iki sıralama metodlarında lauf sürecinin 
değerleri değişir. Bunun sebebi ise kullanılan sayı "alan"- 
larının tesadüfen az veya çok ön sıralamaya tâbi tutulma- 
sıdır. 


Sayı "alanının ön sıralaması kabaca yapıldığında, 
BUBBLE-SORT ve özellikle RIPPLE-SORT metodu yararı- 
nıza olacaktır. 


BUBBLE-SORT değiştirme operasyonunun büyük bir 
sayrsını biriktirir, çünkü RIPPLE-SORT her sıralama çevri- 
mi için, sayı "alan"ının düzenlenip düzenlenmediğini hafı- 
zaya alır, eğer hiç bir sıralama yoksa işlevi hemen sona 
erer. 


Şayet alan tam olarak düzenlenirse, EASY-SORT da 
27,5 saniyede sıralanır. 


Bu üç sıralama metodunun yanında daha birçok me- 
tod vardır. En başarılı sıralama programı, farklı sıralama 
algoritmalarının bir birleşiminden oluşur ve kendi fonksiyo- 
nu içinde alfşılmışın dışında zor olarak anlaşılır. 
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Bu konu daha sonraki literatur'da aytıntılıca tartışıl— 
mıştır. 


3.10 Metin İşleme 


Konforlu metin işleme sistemleri mektupların ve ma- 
nuskriptlerin düzenlemesi sırasında kullanan kişiye zaman 
kazandırır. Bu görev için şahsi bilgisayarlar tercih edilir. 


CPC 464'de donanımsal özelliklerinden dolayı (pro- 
fesyonel tuş takımı, her satırda seksenkarakterlik ifade) 
metin izlemede kullanılmaya elverişlidir. 


Burada, gerekli kullanım örnekleri ve dökümantasyon- 
larıyla komple metin işleme sistemini yeniden basmak 
(kopya etmek) anlamsızdır, çünkü bu kitabın çevresi (etki 
alanı) daralabilir. Bu dar çerçeve de CPC 464'le metin iş- 
leme programı olmaksızın metinlerin işlenmesi mümkündür. 


Program satırlarını PRINT komutlarıyla kullanmak su- 
retiyle bilgisayar üstünde bir metin düzenleyebilirsiniz. 
İlave rrogram satırlarının eklenmesiyle metni tamamlaya- 
bilir, satırların silinmesiyle kısaltılabilir. Ayrıca her prog- 
ram satırı edide edilebilir ve değiştirilebilir. Bu şekilde 
uzun metinleri bilgisayarda düzenlemek ve kasetlerde depo- 
lamak mümkündür. Peki metni basıcıya nasıl verirsiniz ? 


Birçok ev bilgisayarlarında PRINT komutlarını, basıcı- 
ya bir metni vermek için, LPRINT komutlarıyla değiştir— 
melisiniz. CPC 464'te ise bu gereksizdir. 


Bölüm 3.1'deki "içindekiler" programı PRINT # n', 
komut zincirli, bir fonksiyon tuşu kapsadığı bilinmektedir. 
Bu komut zincirinin üstünlüğü daha sonraki bütün işaret- 
lerin program satırlarının sonuna kadar hem ekran üzerinde 
hem de bağlanmış bulunan basıcı üzerine verilebildiğidir. 
Bu komut zincirinde "n" değişkeniyle temsil edilen gi- 
riş/verme birimi belirtilmiştir. Şayet “n"i tanımlamazsanız, 
değer otomatik olarak sıfır olacak ve komutu takip eden 
metin ekrana verilecektir. Buna karşın "n" değişkenine se- 
kiz değeri verilirse, metin basıcı üzerine verilir. 


Metinlerin düzenlenmesi metodu aşağıdaki gibidir: 


154 


AUTO komutuyla CPC 464'ten satırnumaralarını üret- 
tirebilirsini:., CTRL ENTER komutu gerekli komut zincirini 
verir ve bu curumda sadece metni kaydetmeniz gerekmektedir. 


Program satırının sonunda tırnak işaretini koyabilirsiniz. 


Aşağıdaki liste bu şekilde düzenlenen ve n-8 ile GOTO 
10'un basıcıya verilebileceğini gösteriyor. 


AVTO 10 

10 PRINT4#n,gösteri mektni 

20 PRINT*#n 

30 PRINT&#n,"Bu küçük örnek canlandırıl 
malı,tıpkı 

40 PRINT # n,CPC 464 deki metinsiz 
metin işleme sistemi gibi 

50 PRINT&#n,"uzun metinler yerleştirilm 
eli ve kapalı basıcıya 

60 PRINT«n,"verilmelidir. 

720 PRINT#n, "Program satırlarının eklen 
mesi ve silinmesiyle 

80 PRINTen,"metin değiştirilir ve düzeltilir, 
tıpkı 

90 PRINT&#.n,"CPC 464'ün edite imkanlarının 
kullanılması gibi 


Bu örnekte her metin satırı bir program satırını ge- 
rektiriyor. 

Her satıra 40 veya 80 karakterli metinler yazarsanız, 
daha da kolay oiur, çünkü bu durumda ekranda 1 veya 2. 
Mod'da hangi ifadenin metin satırına uyduğunu, nerede ay- 
nlması gerektiğini görebilirsiniz. 8 veya 4 metin satırını 
bir program satırına sığdırmanız mümkündür. Aşağıdaki ör- 
nek her satırı 40 karakterli bir metni gösteriyor. 


AUTO 100 

100 PRINTan,"gösteri metni 

110 PRINTan, 

120 PRINT# n,"bu örnek programla birçok metin 
satırının bir program satırına sığdırılabilece 
ğini görebilirsiniz. 
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130 PRINT#n,"Bu metod eğer siz 40 veya 80 
karekterli her satırı kullanırsanız çalışır .Bu 
şekilde l.ve 2.moddaki metin satır genliği.ekr 
an genişliğine uyar ve bir metnin ne zaman 
140 PRINT#n,"sona erdiğini ve satırların 
nerede ayrıldığını bilirsiniz.Bu metod çok 
basit ama etkilidir.Bununla kitabın manuskript 
i önceden belirlenen metodla oluşur. 


3.11. Oyunların Programlanması 


Zamanla ev bilgisayarları büyük ölçüde video oyunla- 
rna taraftar olmuştur. Çünkü zamanla her oyun heyecanını 
yitirir. pazarlarda yeni oyunlara ihtiyaç sürekli olarak ar- 
tar. Bazı programcılar oyun programlarının düzenlemekle 
iyi bir kazanç elde ederler. 


Bir bilgisayar sahibi olarak oyun programlanmasının 
tekniği hakkında biraz bilgi edinirseniz daha yararlı olur. 
Belki de yılın en sevilen oyununu. yazmayı ve pazarlamayı 
başarırsınız! (Bunun yanında sizin milyonlar kazanacağınız 
garanti edilemez. Şansınız yoksa programınız illegal olarak 
çoğaltılır ve satılır). 


Seri programları ayırmak için oyunlar da grafikle ça- 
lışılır. İyi bir grafik iyi bir oyun için garantidir. Bu 
yüzden oyun programlayıcısı olarak bilgisayarınızın grafiğini 
iyi yapmanız ve yerleştirmeniz çok önemlidir. Tüm olanak- 
ların kullanılmasında oyununuzun rekabeti ortaya çıkar. 
(Oyunun konusunun ilginç olduğu açıklanmalıdır). 


Grafik bir oyun programında önemli bir yer değeri 
tuttuğundan, bu bölümde de özel bir yer almıştır. 


Diğer programlarda olduğu gibi, bir oyun izenle plânlan- 
malı, anlamayı kolaylaştırmak ve özel program bölümünün 
değişimi basitleştirmek için yapı oluşturmalıdır. 


Oyun programı düzenlenmeden önce birçok ana bloğa 
ayırmak anlamlı olur. Bunlar: 


Başlık resmi 
Oyun idaresi 
Oyun alanı 

Oyunun işlevi 
Oyunun sonu 


Oyunun bölümlerine, özel bir program için önemli 
bilgiler ve teşvikler bölümünü gösterebilirsiniz. 


3.11.1 Çözüm, Renkler, Güçler 


İyi bir grafik çözümüyle çalışabilmek için, en iyisi 
sıfır çok renkli modu unutunuz ve dört renkli bir numaralı 
standart modu seçiniz. Dört renk her oyun için yeterlidir, 
çünkü her sahne değişiminde yeni renkler kullanılabilmek- 
tedir. 


Ayrıntılarla ilgilenenler 2 numaralı grafik modunu 
kullanmalıdır. Bu modda bir futbol programının oyuncuları- 
nın triko reklâmı kolayca okunabilir. 


Şaka bir yana, 2 numaralı mod iki olanaklı renklere 
uyar, ama 80 karakterli her satır matematiksel tasvir ve 
metin işlemesi için oyun programından daha önce gelmek- 
tedir. 2 renkli bir oyun uzun süre sıkıcı ve cansız bir etki 
bırakır. Oyuncu sürekli olarak yeni grafik efektleriyle sür- 
priz yapmalıdır. 


Renkler 


Eğer renkli bir monitör için düşünülen bir oyun renk- 
siz bir monitörde görüldüğünde, zevkini heyecanını önemli 
ölçüde yitirir. Programın yazarının, renk bileşiminin tek 
renkli bir ekranda nasıl etki bırakacağını düşünmediği bir 
gerçektir. Renkler ve gerçekler arasındaki zıtlıkların sonu- 
cu, iki farklı rengin tek renkli bir monitörde aynı rengin 
tonlarını verebileceğidir. 


Programlama anında renklere dikkat ediniz, CPC 464'ün 
renk değerleri dama şeklinde yapılmamalı, aksine en koyu 
dan en açık renk tonuna kadar renksiz bir monitörde açık- 
ça nüansı verilmelidir. 
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Bır oyunda benzer veya zıt renklerin mümkün oldu- 
ğunca büyük renk değer farkıyla seçilmesi anlamlı olur. 
Pratikte beş minimal fark korunmalıdır (Bakını.. bölüm 
2.4.2) 


CPC 464'te mümkün renkleri iyi düzenlerseniz, renk 
farklarını ayırabileceğiniz altı büyük grup elde edersiniz. 
Bu gruplar sarı, kırmızı, eflatun, mavi, turkuvaz ve yeşille 
ifade edilir. Oyun programı için bir gruptan en sevdiğiniz 
rengi arayınız ama bir renk grubunun birkaç renk tonunu 
kullanmayınız, aksi takdirde resim can sıkıcı hale gelir ve 
bu şartlar altında oyuncunun renk farkı dikkate alınmaz. 


Güçler 


Bir güç aşağı yukarı 20x20 boyutlu bir resmin grafik 
işaretidir. Bu küçük insanların ve uzay gemilerini anlatmak 
için yeterlidir. Güçün yararı tek bir komutla çözülmesi ve 
işletilmesidir. Çünkü hareketli grafiğin tasviri çok koordi- 
natlı bir maddenin (nesnenin) çözülmesinin ve yerleştiril- 
mesinin bir sonucundan oluşmaktadır, güç tekniği hareketli 
grafiğin programlanmasını son derece kolaylaştırır. 


Malesef CPC 464'le güçleri anlatmak, çözümlü 
grafikli ev bilgisayarlarına nasıl alışılacağını anlatmak 
mümkün değildir. 


SYMBOL komutlu bir grafik işaretinin düzenlenmesi 
kabul edilebilir bir alternatif sunar. Bu işaretler yanyana 
bulunan büyük nesneleri temsil etmektedir ve TAG und 
TAGOFF'a grafik koordinatları hakkındaki görevi, hareket- 
lerin üretilmesini mümkün kılmaktadır. 


Bu şekilde hareketli grafiği üretmek için grafik işa-— 
rertlerini geriye almalı ve ASCII-CHRS(32) işaretli eski 
durumları (pozisyonları) silmelisiniz. 


Akıcı bir hareket işlevi için ROM programlarını CALL 
48409 komutuyla çağırırsanız, hareket gerçekleşmiş olur. 


Aşağıdaki program örneği 4 standart grafik işaretin- 
den oluşan kareyi, soldan sağa doğru yavaş yavaş ekrana 
kaydırır. 
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10 MODE Z2:CLEAR:ITAG:IORIGIN 0,200 

20 as2121b-213:c5214:d42215 

3O CALL 484093M0VE *»yY3PRINT CHRS(D)şCHR 
s(a)) 

40 CALL 48409:M0VE *şyt1l6öPRINT CHRS$(c)g 
CHRS (d)g 

50 FOR laufsi TO SOSNEXT l1auf 

60 MOVE x,yıPRINT”" di | 

70 MOVE x,ytiö:PRINT"“ O“; 

80 xxt431IF xs644 THEN xs0 

90 6G0TO ZO 


Grafik işaretleri program işlevini hızlandırmak ve sem- 
bolün problemsiz bir değişimini mümkün kılmak için değiş- 
ken olarak tarif edilir. 


3.11.2 Başlık Resmi 


Programın yüklenmesinden sonra ekranda görünen baş- 
lık resmi bir oyun programının ilk tesirine aracılık eder. 
Bu başlık resmi bir kitabın cildine veya bir plâğın kutusu- 
suna uymaktadır. Bundan dolayı özel özen gösterilmelidir, 
çünkü oyun oyuncuya hitap etmeli ve oyuna teşvik etmeli- 
dir. 

İyi bir başlık resmini teşvik eden çok şey vardır. İlk 
olarak program adı, programlayıcının adı ve kayıtlar. Ayrı- 
ca oyuncunun yeni değişime hakim olup olmadığını hemen 
görebilmesi için tamamlamanın tarihi veya programın nu- 
marası bulunmalıdır. 


SYMBOL komutu ile kendi işaret cümlelerinizi tarif 
edilebilir ve metni harflerle basabilirsiniz. Program isminin 
üç boyutlu yazılarla belirtilmesi daha iyidir. 


Fakat iş bu kadarla kalmaz. Üzerinde başlığı, yazarı 
ve yayınevi basılı olan bir kitabın kapağını tasavvur ediniz. 
Kitabın kapağı her ne kadar sıkıcı olsa da kitabın içeriği 
o kadar enteresan olmalıdır. 
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Görüyorsunuz ki grafik bir programın başlık resmini 
oluşturur, nihayet oyununuzun elementleri sadece harfler- 
den meydana gelmez. 


Tesirli olan, hareket eden bir grafiktir, örneğin deği- 
şen bir resim çerçevesi veya oyununun birkaç elementi 
(istiap hacmi vs.) Bunlar ise size oyun programınızın grafik 
ifade kalitesini göstermek için. 


Oyununuzun başlık resmi metin ve grafikten oluşur. 
Kullanıcı ilk optik etkiyi bu başlık resmi ile elde eder. 
Daha neler bulunmalıdır? Evet, müzik! Neşeli bir melodi 
ile başlık resminin fon müziği sizi yumuşatır, oyununuzun 
sadece optik olmadığını aksine akustik de olduğunu size 
gösterir. ayrıca melodiniz ses darbelerinden oluşur ve böy- 
lece tanınmış oyunlar insanın kulağında kalır ve oyunun 
reklâmını yapar. 


3.11.3 Oyun Kılavuzu 


Oyun kılavuzu programlayıcının çoğunlukla dikkat et- 
mesini isteyen bir oyunun bölümüdür. 


Bir oyun kılavuzu açık ve belirli yazılmalı ve bir oyu- 
nun değişimi açıklanmalıdır, aksi halde faydalı bilgiler bu- 
lunmadığı için kullanıcının hakim olamadığı bir durumda 
bulunulur. 


Siz noksan ve oyun kılavuzunun bulunmadığı oyun oto- 
matiğini tanıyorsunuz. Oyuncu bilgilerini ya sorarak yada 
oynayarak öğrenmelidir. Bu boşuna didinmek ve programa 
kötü popularite demektir. 


Kural olarak macera oyunları haricindeki bütün oyun- 
lar nokta oyunları olduğu için, oyunun yöntemi hangi hare- 
ket için hangi durumda kaç noktanın gerekli olduğunu be- 
lirtmekredir. 


Oyunun anlamı, oyuncunun hangi amaç için çalıştığını 
bilmesi açısından, etraflıca açıklanmalıdır. Noktaların açık 
bir şekilde toplanması ön plânda olmamalıdır. Müşkülârlı 
oyunlarda oyuncu diğer oyunlara erişebilmek için, zamanla 
zor görevleri çözmeyi başaracaktır. 
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Ayrıca oyun alanında kullanıcıya tarif edilen player- 
missile oyununun nasıl kumanda edilebildiği (meselâ tuş 
takımı harfleriyle mi, yoksa joystick'le mi?) açıklanmalıdır. 


Şayet oyun yönetiminiz bütün bunlara uyuyorsa, tam 
bir şekilde uygulanabilir. 


3.11.4 Oyun Alanı 


Oyun uygulanırken oyun alanı yada oyun alanları teş- 
kil edilir. Şayet oyununuzda tek bir oyun alanı varsa ve 
arka plân bunu müteakip stasyoner ise, oyuncunun çabuk 
canının sıkılmaması için değer enteresan bir alana yerleş- 
tirilir. Belki de oyun alanının veri plânını tesadüfen terke- 
debilirsiniz, bu durumda oyununuzun konusu mümkün oldu- 
ğu kadar diğer bir şekilde görünecektir. 


Bunun aksine oyununuzun oyun alanı hareketli ise ya- 
da sık sık değiştirilirse, bu nokta için fazlaca bir zahmete 
gerek yoktur. 


Genellikle bir oyun alanı iki kısımdan oluşur: Manza- 
ra ve gösterge birimi. İlk kısım kullanıcıya şu anda nerede 
olduğunu gösterir, ikinci kısım oyuncunun şu andaki duru- 
munu yada hareketinin şu andaki durumunu(meselâ hızını) 
belirtir. Gösterge birimi verileri mümkün olduğunca grafik 
şeklinde belirtir. 


Kalan cephane yada akaryakıt gibi gerçekten önemli 
bilgiler gösterilebilir, aksi halde oyuncu birçok göstergenin 
içersinde şaşırır kalır. 


3.11.5 Oyunun İşlevi 


Bir oyunun en önemli bölümü oyunun işlevidir. Bu 
nokta değişken olduğu ve oyunun konusu sizin hayalinize 
kaldığı için bu hususun belirtilmesi gerekir. 


Şimdi burada esas bilgileri izleyelim: 


Oyun olayı için karekteristik olan bir melodiyi pa- 
ralel olarak olaya sokması video oyunlarında elde 
edilebilir. Bir oyunun objeleri çatışırsa, genelde bu ele- 
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mentlerden birinin en azından tahrip edilmesine veya 
yok olmasına yol açar. Bu aksiyona özel bir ses, gürül— 
tü ve diğer melodiler de karışabilir. 


Sesin ve tonun paralel ifadesi CPC 464'le kolayca 
elde edilebilir. Kanaldan tonu bekleme dizisi tamamen 
boş ise, ONSO (kanal) GOSUB komutu alt programa 
atlar. Grafik operasyon esnasında melodinin kesilmeme- 
si için, tonlar tam zamanında verilmelidir. Sonradan 
yükleme öyle hızlı olur ki, oyuncu hiç bir şey farketmez. 


Şu anda mevcut olan melodi CLEAR komutuyla 
kesilebilir. Bütün diğer veriler de beraber silindiğinden 
dolayı bu şüphesiz ki bir program için uygun olmayan 
bir metod'dur. Diğer bir alternatif ise uygun kanal 
üzerinde ses şiddetinin tonuna tam dolu olan bir Bit 
ile sıfırlamaktır. Tam dolu olan bir Bit ton verilmesini 
keser ve halihazırdaki tonu verir. Bu ton belirtilen ses 
şiddeti ile işitilemediğinden, bu metod prensipte ses 
kesilmesi işlemidir. 


Genelde bir melodinin sona ermesinden sonra baş- 
ka bir gürültü işitilmektedir, öyle ki bunu takip eden 
SOUND komutu aynı kanal üzerindeki tonu, daha önceki 
SOUND komutunda olduğu gibi eski melodiyi silmek 
için tam dolu bir Bit ile belirler. 


3.11.6 Oyunun Sonu 


Oyun ilginç bir sonla bitirilmelidir, çünkü bir oyunun 
sonu oynayanın ilgisini çekmelidir. Her tesirli sonuç mü- 
saittir, yalnız kuvetli bir GAME OVER'in göz kamaştır- 
ması sizi vazgeçirir, çünkü bundan oynayan sık sık sıkılabi— 
lir. 


Kısa bir yorumda oyunun başarısının bir değeri sizin 
oyununuzun sonunda eksik olmamalıdır. Bu oyuncuyu ve uy- 
gun kelime seçiminde -özellikle kötü bir söz kesme du- 
rumunda— oyuna katılanları da sevindirir. 


Son nokta durumun haberi 10 oyuncudan 20 
oyuncuya kadar aynı şekilde mecburi liste gibidir. Böylece 
son oyunda uygun başarıyı elde edebildiğine göre ismini bu 
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listeye zktarabilmek imkânı doğar (Her oyun komputere 
veya oyuna katılanlara karşı bir rekabet mücadelesidir ve 
her oyuncu iyi bir sonuçta emin bir tanımayı da tecrübe 
etmeyi ister ). 


Özel ve mutlak en yüksek nokta sayısı programda sağ- 
lam olarak yerleştirilmeli ve bilinmelidir, çünkü bir oyunun 
programlayıcısının en iyi nokta durumundan daha fazla üs- 
tün gelmesi önemli değildir. Yani burada parola geçerlidir. 
Programlayıcı olarak yeteri kadar iyi oyunlar yazılmazsa, 
en azından oyun iyi oynanmak istenir. 


Oyunun sonunda yeni bir deneme yapmak için kulla- 
nıcıda büyük bir ilgi uyanır. 
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SONSÖZ 


Bu bölümle oyun programlanması ile birlikte kitabın 
sonuna da geldik. Bu sebepten dolayı sonuç aşağıdaki gi- 
bidir: 

Her gayretli oyuncu bir oyun programında, özellikle 
programa uygun kayıtlar seçtiğinde, nasıl eğlendirici ve 
neşeli yorumların olduğunu bilir. Oyun olayı için bu 
yorumlar bir oyunda çorbadaki tuz gibidir! Her şeyden ön- 
ce oyunun akışı esnasında özel yüksek ve düşük başarıların 
değerinde ve oyunun sonucundaki sona ermiş değerde uygun 
kararlar makbuldur ve ideal olarak yerleştirilir. Bundan 
dolayı oyununuza sık sık eğlendirici fikirler katınız. Birkaç 
örnek: 

"Evet, kör bir tavuk bir buğday tanesi bulur" 

"Kapalı gözlerle oynarsanız daha iyi olur" 

"sirkte palyaço olarak çalıştınız mı?" 

"En kısa zamanda benden daha iyi olacaksınız" 


Biraz hayâl biraz da hünerle uygun yerlerde grafik 
efektler ve güldürüler yapabilirsiniz. Meselâ, bir hamburger 
için reklâm yapan bir korkuluk yada şanssız oyuncunun ca- 
nını alan bir şeytan. Esas olan sizin daima başarılı olma- 
nızdır. Kullanıcının sıkılmaması için oyunlarınıza bir parça 
eylence katmalısınız. Tabii ki bu program stili daha fazla 
bir zaman ve 08/15'lik programlama yerinden daha fazla 
bir bellek alanı gerektirir. Oyununuzun sık sık tekrar edil- 
mesi ve sevilmesi buna bağlıdır. 


Şayet oyununuzdan ayrılamazsanız, gece gündüz bilgi- 
sayarla vakit geçirirseniz, bir Bestseller yazmışsınız de- 
mektir. 


CPC 464'un donanım sisteminin kreatif etkisi için 
yazar tarafından plânlanan bir izleme bandı doldurulmuş- 
tur: 


Bandın ismi "Hardware-Erwerterungen für den CPC 
464 selbstgebaut"tur. 


YAKINDA ÇIKACAK OLAN YAYINLARIMIZ 


Was der 
Atari alles kann 





ATARI NELER YAPABİLİR? 


Aptullah Kuzu'nun çevirisi ve VOGEL 
VERLAG yayınevi ile işbirliği sonucu bu 
konudaki ikinci yayınımızı yakında ki- 
tapçılarda bulabılirsiniz. 





COBOL PROGRAMLAMA 
NASIL YAPILIR? 


i Dr.Nesrin Ertel'in çevirisi ve VOGEL 


VERLAG yayınevinin işbirliği ile 
yakında çıkacak olan bu kitap COBOL 
programlamayı öğrenmek ya da ilerlet- 
mek isteyenler için ideal bir yapıt. 


BİLGİSAYARA GİRİŞ VE BASIC 


Anadolu Üniversitesi Öğretim Üyesı Yrd 
Doç.Dr.Ali (Güneş'in ohazırladığı bu 
yapıt Temel Xavramlar, Bilgisayar yazı- 
lımı ve Donanımını ve BASIC program- 
lama dilini içermektedir. 


Bilimsel Araştırmalarda BİLGİSAYARLA 
İSTATİSTİK DEĞERLENDİRME VE VERİ 
ANALİZİ. 

Anadolu Üniversitesi Öğretim Üyesi Doç 
Dr.Kazım Özdamar'ın hazırladığı bu ya- 
pıt özellikle İstatistikle uzaktan ya ya- 
kından ilişkisi olanlar için bir başvuru 
kitabı niteliğinde. 


ATARİ-BASIC ÇIKTI......... Kimde ALDINIZMI? 
I.Hamur baskı. 184 sahife olan bu kitap Atari bilgisayarı 
olanlar için Türkiye'de basılmış ilk Türkçe eser. 





CPC 464 bilgisayarı, en çok satılan ev bilgisayarı 
olma yolundadır. Ancak, tecrübeli kullanıcıya da yar- 
dımcı olabilecek. anlaşılır ve kapsamlı bir kullanım ki- 
tabının eksikliği hissedilmektedir. Bu kitap, bilgisayarı- 
nızı daha iyi anlamanıza ve ondan daha çok yararlanma- 
nıza yardımcı olacaktır. 


Her CPC 464 bilgisavarı sahibinin pek çok yeni ve 
önemli bilgiler bulacağı bu kitap, CPC 464 kullanım bro- 
şüründen çok ileri kapsamlıdır. Kullanım broşürünü ta- 
mamen incelemiş olanların kafasında dahi birçok soru 
cevapsız kalmış olacaktır. Bilgisayarları için ek bilgi, 
veni fikir ve program arayışı içinde olanların bu arzu- 
larını karşılamak üzere, bu kitap üç büyük bölüme ay- 
rılmıştır. 


Kitap, hareketli grafik ve sesli oyunların prog- 
ramlanmasına dair ilginç bir kesimle son bulmaktadır. 
Verilen programlar tümüvle denenmiş olup. bilgisavarın 
orijinal çıkışlarıdır. Bu nedenle hepsi CPC 464le kusur- 
suz çalışacaklardır. 


VOGEL-BUCHVERLAG 
WÜRZBURG 
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